my %h2 = map { exists $h1{$_} ? ($_ => $h1{$_}) : () } @set;