Select Code to Download

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

hash(  { uno => 'one',
         dos => 'two',
...
   my ($param) = @_;
   print $param->{uno}, "\n";
}