foreach $key (keys %set1) {
  $set2{$key} = undef;
}