while ...
   ++$count;
   if ( $count == 1 ) {
      $type = ...
      ...
   }