my spin on it:
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 ]); I love abusing $a and $b.