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