my %hash2 = map { m/a/ ? ($_, $hash{$_}) : () } keys %hash;