The line I presented to p5p went something like this:<p><pre><code>  print join "\t", map {$format[$_]-&#62;($row[$_])} 0..$#format;
</code></pre>
<a href="http://www.perlmonks.org/index.pl?node_id=34786" rel="nofollow">http://www.perlmonks.org/index.pl?node_id=34786</a> has a longer code example which I used to introduce some idea of what closures could be useful for to a lot of Perl programmers.