Can't use "my $a" in sort comparison at pmonks06082015.pl line 4.