use strict;
use warnings;

my %hash;
my $same_array = [];

for( 1 .. 3 )
{
    $hash{$_}{same} = $same_array;
    $hash{$_}{new}  = [];

    print "$_: $hash{$_}{same} vs $hash{$_}{new}\n";
}

##</code><code>##

1: ARRAY(0x34f88) vs ARRAY(0x35d50)
2: ARRAY(0x34f88) vs ARRAY(0x1854e88)
3: ARRAY(0x34f88) vs ARRAY(0x1854e34)