Help for this page
my @x = (1, 2, 3, 4); my @y = ();
push @y, \@x;
push @y, @x;
$z = pop @y; @x = @{$z}; # or @$z