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