Perl script to compare two files