{ local $/="\t"; my $i = 0; my @arr = (); while ( ) { push @{$arr[$i++%50]}, $_; } }