in reply to TK grid

Yes - but without the parenthesis: 
-column => $i,

[download]

In Section Seekers of Perl Wisdom