my $Found = 0; for (@Requirements){ if ($_ eq 'KernelDevlopment'){ $Found = 1; last; } } if ($Found != 0){ spend($Time{Extra}); squeeze($CPU{qw/every last cycle/}); } ### vs. ### get_the_job_done() && move_on() unless grep {/KernelDevelopment/} @Requirements;