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