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