DB<108> my $a=3; sort {$a <=> $b} @a Can't use "my $a" in sort comparison at ...