package Job; sub new_day { my $job = shift; my $self = {}; my @management_team = ( $Useless::CorporateWeasel, $Backstabbing::MiddleManager, $FaceSmiling::Ladderclimber, $Insipid::MarketingDrone, $PHB ); $self->{score} = push @offa_roof, @management_team; foreach (@Luser){ push @outta_window; $self->{score}++; } if ($self->{score} > 1){ $self->{status} = "Happy"; bless $self, $job; } return $self; }