in reply to looping idiom

another way is: 
print join("\t", @data);

[download]


-bn

In Section Seekers of Perl Wisdom