Help for this page
%hash =(uno=>1, dos=>2); push @stack, \%hash; %hash=%{pop @stack};
$stack -> push(%hash); %hash = $stack->pop();