my $new = [$a, $b] $myhash1{0+ $new} = $new; $myhash2{$_} = $new for $a, $b;