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