km@krot:/home/km> perl -le 'my $a = "q"; my $b = "x"; print join "-", sort { $a cmp $b } qw(foo bar baz); print $a; print $b;'
Can't use "my $a" in sort comparison at -e line 1.