$i=0;
while ($i <= 89){
   $a='';
   $b='';
   $c='';
   $d='';
   
   ($a, $b, $c, $d) = split(/[\t]/, $stuff[89..93]);
   print $b;
        push (@b, "$b\t");
  $i++;
  }