Select Code to Download

$range[$i++ % @range]

#!/usr/bin/env perl -l

...
for (1 .. 9) {
    print $range[$i++ % @range];
}

1
2
...
3
4
1