$ perl -MData::Dump=pp -e 'sub x {my %x=(A=>1,B=>2,B=>3)}; pp {x()}'
{ "" => "B", "B" => undef }