chomp;
   @a=split(/\t/);
   $a[0]=~s/\s+//g;
   $a[1]=~s/\s+//g;
   $a[2]=~s/\s+//g;
   $a[3]=~s/\s+//g;