sub hashCopyByKey {
  my $target = shift;
  my $source = shift;
  my @keys = @_;
  foreach (@keys){
    $target->{$_} = $source->{$_} if $source->{$_};
  }
}