sub set_attr {
    # 0 self
    # 1 attr
    # 2 value
    $_[0]->{$_[1]} = $_[2];
}

sub get_attr {
    # 0 self
    # 1 attr
    $_[0]->{$_[1]}
}

##</code><code>##

sub set_attr {
    my $self  = shift;
    my $attr  = shift;
    my $value = shift;
    $self->{$attr} = $value;
}

##</code><code>##

sub addNums {
    # 0 self
    # 1 attr
    # 2 value
    $_[0]->{$_[1]} = $_[2];
}

##</code><code>##

sub capitalize {
    my ($word) = @_;
    $word = "\u$word";
    return $word;
}

##</code><code>##

sub capitalize {
    $_[0]="\u$_[0]";
}

##</code><code>##

$word = captitalize($word);

##</code><code>##

captitalize($word);