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