my %new = hmap {
    exists $b->{ nick } && $b->{ nick } =~ m[^(?:rbush|fred)$]
        ? ( $a => scalar hgrep{ $a =~ m[^(nick|phone)$] } $b ) 
        : ()
} \%old;