...
   foreach $it (1..$nt) {
      $x11 = substr($record,$lmina,1);
      $x12 = substr($record,$lmina+1,4);
      $ib = substr($record,$lminb,2);
      if ($x11 ==  0 and $x12 == 0 and $ib == 99) {
         $values[$it-1] = $val_missing;
      } else {
         if (($ib % 2) == 0) {
            $x2 = $ib/2;
         } else {
            $x2 = -($ib+1)/2;
         }
         $values[$it-1] = sprintf "%u.%4.4uE%3.3d\n",$x11,$x12,$x2;
      }
      $lmina = $lmina + 5;
      $lminb = $lminb + 2;
   }
   return @values;
}