$ perl -MO=Deparse -e "print $hash{undef}"