Shell Programming and Scripting

#!/usr/bin/perl
# get_col_values.pl
my $file1 = shift;
my $file2 = shift;

open (F1, '<',$file1)  or  die "Failed to read file $file1 : $! \n";
open (F2, '<',$file2)  or  die "Failed to read file $file2 : $! \n";
while (my $line_f1 = <F1>) {
    my $line_f2 = <F2>;

    my @fields_f1 = split (/\|/, $line_f1);
    my @fields_f2 = split (/\|/, $line_f2);

    if (($fields_f1[4] == $fields_f2[29])  and  ($fields_f1[10] == $fields_f2[165])  and  ($fields_f2[8] == 3)) {
        print $fields_f1[4], " ", $fields_f1[5], " ", $fields_f1[8], " ", $fields_f1[10], " ", $fields_f2[29], " ", $fields_f2[165], " ", $fields_f2[7];
    }
}
close (F1);
close (F2);