@_ = sort { 
        print "Why do we have to hide from the police, daddy ?
Because they use $a and we use $b, son.\n" if $a ne $b;
} ( 'emacs', 'vi', 'emacs' );