...
use Storable qw(thaw freeze);
...
my $frozen = freeze \@a;
for my $i ( 1 .. 2 ) {
        $h{"$i"} = thaw $frozen;
}
...

##</code><code>##

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