my %hash2 = map { $_, $hash1{$_} }
            grep { /foo/ }
            keys %hash1;