my $params = {
  this => 'foo',
  that => 'bar',
  other => 'baz',
}
sub param_names {
  my $params = shift;
  print "$_: $params->{$_}\n" for keys %$params;
}

param_names($params);