$a=1,$b=2,$c=3,$d=4,$e=5;
&rotate($a, $b, $c, $d, $e);
print "\$a=$a,\$b=$b,\$c=$c,\$d=$d,\$e=$e\n";

sub rotate {
    my $temp = $_[0];
    foreach (0..($#_ - 1)) {
        $_[$_] = $_[$_+1];
    }
    $_[-1] = $temp;
}