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