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