And yet another:

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