sub with(\%$) {
   my ($hash, $values) = @_;
   @$hash{keys %$values} = values %$values;
}