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