$ perl -E'my %h; delete $h{x}; say "ok";'
ok