my @a = qw(map my base);

for (1..3) {
    print "@a\n";
    push @a, shift @a;
}
[download]

?