my %new2 =
hmap { $_[1]{nick} =~ /rbush|fred/
          ? ( $_[0] => { hmap { $_[0], $_[1] } %{$_[1]} } )
          : ()
     } %$h;