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