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;'
bar-baz-foo