{
     
    package MyClass;

     
    sub new {
        my $class = shift;
        bless {variable => 0}, $class;
         
         
    }

     
     
    sub some_method {
        my $self = shift;
        $self->{variable} = 1;
    }
}