Select Code to Download

...
use Storable qw(thaw freeze);
...
        $h{"$i"} = thaw $frozen;
}
...

...
use Storable qw(dclone);
...
        $h{"$i"} = dclone \@a;
}
...