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