Here is a more 'perlish' alternative to the 'c-style' loop:

my @x=qw|0 1 2 3 4|; 
for my $s( @x[0..$#x] ){ # Slice = entire array
   $s and push @x, $s;
};
print "@x\n"'
#----Output---
#0 1 2 3 4 1 2 3 4
[download]