Your spec is a little ambiguous to me, but if I follow, you can do what you need using Slices and %, perhaps like:

for my $i (0 .. @data/100) {
    my $max = $i * 100 + 99;
    $max = @data - 1 if $max > @data - 1;
    print @data[$i * 100 .. $max];
}
[download]

Of course, you'd presumably want to do something between those prints.