■No8472に返信(hiroさんの記事)
@p3=split(/ /, $p3); my($Check)=0;
foreach (0 .. $#part3) {
  foreach $p3(@p3){
   #記録した配列のなかに@part3の中にあるものがある場合$Check=1;
   if($p3 == $_){$Check=1; last;}else{$Check=0;}
 }
 if($Check){print"チェックされている処理";}
 else{print"チェックされてない処理";}
}

でどうでしょうか？