sub hash {
  my %param = @_;  # I hope I'm remembering this right...
  print $param{uno}, "\n";
}