$range[$i++ % @range]

##</code><code>##

#!/usr/bin/env perl -l

use strict;
use warnings;

my @range = 1 .. 4;
my $i = 0;

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

##</code><code>##

1
2
3
4
1
2
3
4
1