I think the map statement is fine, but needs something choped off. The 0..$#ary is unnecessary. You need simply:

map { $_->[0] } @ary;
[download]

----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer

Note: All code is untested, unless otherwise stated