Shell Programming and Scripting

#!/usr/bin/perl

use strict;

my (@ar1,@ar2);
my ($file1_line,$file2_line);

open (FH1,"<","first_file.txt") || die "cannot open file1 for reading \n";
while (<FH1>) {
        chomp;
        @ar1=split(/\s+/,$_);
        $file1_line="$ar1[1] $ar1[2] $ar1[8] $ar1[9]";
        open (FH2,"<","second_file.txt") || die "cannot open file2 for reading \n";
        while (<FH2>) {
        chomp;
        @ar2=split(/\s+/,$_);
        $file2_line="$ar2[1] $ar2[2] $ar2[8] $ar2[9]";
        if ( "$file1_line" == "$file2_line" ) {
                print "$file1_line\n";
                }
        }
close(FH2);
}
close(FH1);