# 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;
  }
}