$items_per_column = 5;
@items = qw(aaa bbb ccc ddd eee fff ggg hhh iii jjj kkk lll mmm);
$counter = 0;
for(@items) { print $_,"\t"; $counter++; if ($counter == $items_per_co
+lumn) { $counter = 0; print "\n"; }
}
[download]