delete $h{$_} for (grep {ref $h{$_}} keys %h); [download]
In reply to Re: Removing key/value pairs from a hash by mickeyn in thread Removing key/value pairs from a hash by telcontar