open (TEMP,"<temp.txt");
open (TEMP_MOD,">temp_mod.txt");
while($line=<TEMP>)
{
   $flag=0;
   foreach $word (@X)
   {
      if($line=~/$word/) #Does $line contain this $word?
      { 
          $flag++;
          last;
      } 
   }
   if($flag==0)#None of the words from @X is present in $line
   {
      print TEMP_MOD $line ;
   }


}
close TEMP;
close TEMP_MOD;