Package Some::Module;
...
my $some_state = 'something';
...
sub some_func {
   ...
   $some_state = 'new state';
   ...
}