my $object = new Object();
$object->hash(
    uno  => 'one',
    dos  => 'two',
    tres => 'three',
);

##</code><code>##

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