$obj->some_method {
    my ($self,@args) = @_;

    print $self-{many}, $self->{variables};
}