for my $i (0 .. 29) {
    print $stuff->[ $i % @$stuff ];
}