use Data::Dump qw/pp dd/;

local $" = $; ;

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

$h{3,4}=34;

dd %h;