Use of uninitialized value in concatenation (.) or string at ./compare.pl line 25. #### #!/usr/bin/perl -w use Array::Compare; use strict; my $file1 = "/var/tmp/db.bind1"; my $file2 = "/var/tmp/db.bind2"; my $out = "/var/tmp/compare_out"; open(FILE1, "$file1") || die "Can't open $file1 to read\nReason: $!\n"; my @file1 = ; close(FILE1); open(FILE2, "$file2") || die "Can't open $file2 to read\nReason: $!\n"; my @file2 = ; close(FILE2); open(OUT, ">$out") || die "Cant create $out\nReason: $!\n"; my $comp = Array::Compare->new(DefFull => 1); print OUT "line $_ differs. File 1: $file1[ $_ ] != File 2: $file2[ $_ ]\n" for $comp->full_compare(\@file1,\@file2); #$comp->compare(\@file1, \@file2); #print OUT $comp->full_compare(\@file1,\@file2); close(OUT); exit;