Shell Programming and Scripting

use File::Compare;
$count = 0;

open (F1, "file1.txt") || die "Could not open file $!";
while (<F1>) { 
    push @array1, [ split ];
}
close (F1);

open (F2, "file2.txt") || die "Could not open file $!";
while (<F2>) {
    push @array2, [ split ];
close (F2);

foreach (@array1) {
    if (@array1 != @array2)
       {$count++;
        print "$count \n";}
}

use File::Compare;
$count = 0;

open (F1, "file1.txt") || die "Could not open file $!";
while (<F1>) {
    @array1=split;
}
close (F1);
open (F2, "file2.txt") || die "Could not open file $!";
while (<F2>) {
    @array2= split;
close (F2);
}
$i=0;
foreach (@array1) {
    if ($array1[$i] ne $array2[$i])
       {$count++; }
        $i=$i+ 1;
}
print "$count \n";