sub new { my $class = shift; my $self = {}; bless($self, $class); $self->_init; return $self; } sub _init { my $self = shift; foreach my $key (keys(%{$self})) { delete $self->{$key}; } $self->{hours_on_the_job} = 0; $self->{people_shot} = 0; etc... }