"The Dumper output i'm trying to achieve is..":
Has rightly pointed out by moritz, use Storable's freeze and thaw or dclone like so:

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

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