Yes. Exit as soon as your find a match.

sub yoda {
  for my $roy ( @foys ){
     return 'yes match ' if  $roy =~ /yoda/ ;
  }
  return 'no match';
}
[download]

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"

I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).

** The third rule of perl club is a statement of fact: pod is sexy.