$y = $z;
$z = $x->[2];
$x->[2] = $x->[3];
....
$x->[$#$x - 1] = $x->[$#$x];
pop @$x;