my %modified_hash = map { $_ => f($hash{$_}) 
                          grep { condition_on_key($_) } keys(%hash);