# Takes a hash reference and a list of key/value pairs.
# Assigns those keys to those values in the hash
sub add_to_hash {
  my $h_ref = shift;
  while (@_) {
    my $key = shift;
    my $value = shift;
    $h_ref{$key} = $value;
  }
}

##</code><code>##

add_to_hash(\%my_hash,
  key1 => "value1",
  key2 => "value2",
  # ...
);