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";
}