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

replacing for with map worked, but I had to pull in an extra array-ref. Dunno why it worked without that one.

Cheers,

Jeroen
"We are not alone"(FZ)