for my $i ( 1 .. 2 ) {
        my @new = @a;     # copy of @a
        $h{"$i"} = \@new; # reference the copy
}

##</code><code>##

for my $i ( 1 .. 2 ) {
        $h{"$i"} = [@a];
}