use Data::Dump qw/pp dd/;

local $" = $; ;

$p=[1,2];
$h{"@$p"}=12;

$h{3,4}=34;

dd %h;

##</code><code>##

("3\x1C4", 34, "1\x1C2", 12)