You can use the modulo operator:

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