$ perl -we 'my $h={k=>undef}; print $h->{k} if exists $h->{k}'
Use of uninitialized value in print at -e line 1.