Perl コマンドライン引数内蔵配列 @ARGV

perl my.pl $ARGV[0] $ARGV[1]

1320238
1320239
1320239
1320238
1320238
1320238
1320235
1320237

102 5709072117805887 4001 1301854
102 5709072117807510 4001 1320292
102 5709072117838653 4001 1301857
102 5709072117814280 4001 1305832
102 5709072117839397 4001 1310673
102 5709072117839335 4001 1311270

[root@localhost ~]$ perl ex.pl 1.txt 2.txt
[root@localhost ~]$ cat ex.pl
#! /usr/bin/perl
use strict;

open(ONE,"$ARGV[0]") or die $! ;
open(TWO,"$ARGV[1]") or die $! ;

my %hash;
while (<TWO>) {
    chomp;
    my @line=split;
    my $column4=$line[3];
    $hash{$column4}=$_;
}

while (<ONE>) {
     chomp;
     print $hash{$_} if defined $hash{$_};
}

print"\n";