$ perl -E'my %h = (x=>1); delete $h{x}; delete $h{x}; say "ok";'
ok