my %intersected_hash = @hash1{grep exists $hash2{$_}, keys %hash1};