"my $a" used in sort comparison at ./1.pl line 7.