Select Code to Download

use strict;
use warnings;
...
%foo = %{pop @stack};
print "restored original \%foo\n";
Dump (\%foo);

Using %newFoo
$HASH1 = {
...
           a => 'b',
           c => 'd'
         };