my %h2 = map { $_ => $h1{$_} } grep { exists $h1{$_} } @set;