$ perl -le 'my $a; my @n = (3,2,1); print for sort {$a<=>$b} @n'
Can't use "my $a" in sort comparison at -e line 1.