#!/usr/bin/perl
use strict;

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

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