use strict;
use warnings;

open my $fh1, '<', 'text1' or die $!;
open my $fh2, '<', 'text2' or die $!;

while (!eof($fh1) && !eof($fh2)) {
	chomp( my $line1 = <$fh1> );
	chomp( my $line2 = <$fh2> );
	
	if ($line1 eq $line2 ) {
		print "Match for $line1\n";
	} else {
		print "Difference for $line1, $line2\n";
	}
}

if (! eof($fh1)) {
	warn "Still more data in file handle 1\n";
}
if (! eof($fh2)) {
	warn "Still more data in file handle 2\n";
}

close($fh1);
close($fh2);