Cool. But I don't want to extract a column while
printing, the print was just a way of showing
the results if someone wanted to run the code.
I want to have an AoA with each element being
a column of data ...not that I ever said
as much, which, in retrospect, would have avoided lots of
time spent by other people trying to figure out what my
real goal was.
And thanks for the 'idiom', I added it to my personal
archive of neat little bits O'Perl.