my %norefs = map {
        ref $h{$_} ? () : ($_,$h{$_})
} keys %h;