%hash =(uno=>1, dos=>2);
push @stack, \%hash;
%hash=%{pop @stack};

##</code><code>##

$stack -> push(%hash);
%hash = $stack->pop();