perl -E 'my %h; $h{3} = 4;delete $h{3} ;say 1 if defined $h{3}'