Can't use "my $a" in sort comparison at /home/code/perl/arrayprob.pl line 5.