sub some_method { my $self = shift; $self->{'_very_internal_flag'} = 1; #... }