use strict;
use Data::Dumper;

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


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