print "Why do we have to hide from the police, daddy? Because they use $_->[0] and we use $_->[1]\n" for ($a = [qw(emacs vi)],[ reverse @$a ]);