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