#!perl

open (FILE1, $ARGV[0]);
open (FILE2, $ARGV[1]);

while ($_ = <FILE1>) {
    chomp;
    @FILE1 = split;
    ($FILE1letter, $FILE1number) = @FILE1;

    @FILE2 = split(' ',<FILE2>);
	    ($FILE2letter, $FILE2number) = @FILE2;
 #   print "$FILE1letter from FILE1 with number $FILE1number and $FILE2letter from FILE2 with $FILE2number match\n";
#prints the same as below

 if ($FILE1letter == $FILE2letter) { 
    	print "$FILE1letter from FILE1 with number $FILE1number and $FILE2letter from FILE2 with number $FILE2number match\n";
	       }
    else {
        print "$FILE1letter from FILE1 with number $FILE1number and $FILE2letter from FILE2 with number $FILE2number DO NOT match\n";
	       }