Comparar 2 ficheros de texto línea a línea

Siempre lo intento hacer con el comando "comm", pero nunca sale el resultado esperando si el fichero es demasiado grande.. en perl:

#!/usr/bin/perl

use Data::Dumper;


open(A,"$ARGV[0]");
@a1=;
close A;

open(B,"$ARGV[1]");
@a2=;
close B;

my @a  = array_differenz(\@a1, \@a2);
foreach (@a) { print; }


sub array_differenz ($$) {
my $a1   = shift; # array reference
my $a2   = shift; # array reference

my @a1m2 = @$a1;  # array 1 minus array 2;

for my $element (@$a2) {
for my $index (0..$#a1m2) {
if ($element eq $a1m2[$index]) {
splice @a1m2, $index, 1;
last;
}
}
}

my @a2m1 = @$a2;  # array 2 minus array 1;

for my $element (@$a1) {
for my $index (0..$#a2m1) {
if ($element eq $a2m1[$index]) {
splice @a2m1, $index, 1;
last;
}
}
}

return (@a1m2, @a2m1);

} # sub array_differenz