open(INFILE,"<","words.txt")

my @X;
while(<INFILE>){
   push @X,(split(/\s+/,$_))[0]; ### choosing particluar column and pushing all its values in single array
  }

$a = 0;
$main = 'temp.txt'; 
$mod = 'temp_mod.txt';
for (0..$#X)

{

$b = $main;
open b ;
open NEWFILE1, ">$mod" ;
while (<b>) { / $X[$a]   / or print NEWFILE1 }
close NEWFILE1;
$main = $mod;
$mod = $b;
$a++;
}