Also this way

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

sub hash {
    my $param = {@_};
    print $param->{uno}, "\n";
}
[download]