$ pirl
Welcome to the Perl shell. Type ':help' for more information


pirl @> %a = ()
()


pirl @> print "ok" if $a{k}
undef


pirl @> \%a # no surprise
{}


pirl @> print "ok" if $a{k}[0]
undef


pirl @> \%a # bang!
{ k => [] }