hash(  { uno => 'one',
         dos => 'two',
         tres => 'three',
       }
    );

sub hash {
   my ($param) = @_;
   print $param->{uno}, "\n";
}