the most similar working way i found is:

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

Oha