Select Code to Download

$ perl -wMstrict -MData::Dump -e 'my %h; map{$_} $h{X},"$h{Y}"; dd\%h'
Use of uninitialized value $h{"Y"} in string at -e line 1.
{ X => undef }