use People qw/Nick/;

my $good_ones = 0;

my @daemons = Nick::count('daemons');

while ( my $every_day = scalar @daemons ) {
    place( \@Nick::shoulders, $daemons->[0] );
    @daemons = ();
}

if ( $you->{'feel'} eq 'neglected' && $you->{'think'} eq 'all is lost'
+ ) {
    @daemons = Nick::count('daemons');
    Nick->hopes( my $all ne 'lost' );
}
[download]