my @x = (1, 2, 3, 4);
my @y = ();

##</code><code>##

push @y, \@x;

##</code><code>##

push @y, @x;

##</code><code>##

$z = pop @y;
@x = @{$z}; # or @$z