my @statuses = _frobulate_status_processes( ); my $running_frobulators = grep { m/\A Running \z/xi } @statuses; if( @statuses == $running_frobulators ) { print "All processes frobulating\n"; } else { print "Only $running_frobulators of ", scalar @statuses, " running\n"; }