$ perl compare.pl
a 2 Y
a 3 R