my @ind;
   my $i;
   for ($i = 0; <F>; $i++) {
      $ind->[$i] = tell F;
   }
   $i = $i > 200 ? $i-200 : 0;
   seek (F,$ind[$i],0);