$ perl -MData::Dump -e " @x = 1..2; $y{@x} = @x; dd \%y "
{ 2 => 2 }

$ perl -MData::Dump -e " @x = 1..4; $y{@x} = @x; dd \%y "
{ 4 => 4 }