my %norefs =
   map  { $_ => $h{ $_ } }
   grep { ! ref $h{ $_ } }
   keys %h;