for($t=0;$t<$lthree;$t++)
 {
 if($mpart=~/$three[$t]/)