my @keepers = grep !ref($h{$_}), keys %h;
my %norefs;
@norefs{@keepers} = @h{@keepers};