http://qs321.pair.com?node_id=653202


in reply to Removing key/value pairs from a hash

delete $h{$_} for (grep {ref $h{$_}} keys %h);
;-)
Mickey