Help for this page

Select Code to Download

Select or download this

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