Weigh the benefits between grep and reinvented-wheel.

Yes, grep is not always optimally efficient. However, how much time, effort (and money) will you spend writing a more efficient algorithm to save a few microseconds?

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/} @Req
+uirements;
[download]

:-)

Russ
Brainbench 'Most Valuable Professional' for Perl