oR! Try this:

my @temp=(1,2,3);
print "$temp[0] .. $temp[1] .. $temp[2]\n";
push(@temp,shift(@temp));
($a,$b,$c)=@temp;
print "$a .. $b .. $c \n";
[download]