http://www.perlmonks.org?node_id=1012306
Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

I'm new to Perl and i'm having trouble figuring out how to run code for a 100 records at a time from an Array, any help would be greatly appreciated.

open (FILE, "<C:\\text.txt") || die "Can't open file $!\n"; while ($line = <FILE>){
chomp($line); push @data, [split /\t/,$line];
}
close(FILE);
[download]

At this point I would like to print the elements of @data a 100 records at a time