with this new method how can I access each ID records lines 1 - X ? Before I could do it this way:

#########REC01##############
  $line = $records{$id}[0];
  $ACTNUM = substr $line, 2, 9 ;
  $TOT_AVBL_TO_PAY1 = substr $line, 32, 11;
  $TOT_AVBL_TO_PAY2 = substr $line, 43, 2;
  $TOT_AVBL_TO_PAY1 ="0" if (! $TOT_AVBL_TO_PAY1);
  $TOT_AVBL_TO_PAY2 ="0" if (! $TOT_AVBL_TO_PAY2);
  $TOT_AVBL_TO_PAY3 = join('.', $TOT_AVBL_TO_PAY1, $TOT_AVBL_TO_PAY2);
  $TOT_AVBL_TO_PAY = $TOT_AVBL_TO_PAY3;

#########REC02##############
  $line = $records{$id}[1];
#########REC03##############
  $line = $records{$id}[2];
  $MGN_FED_CALL_TOT1 = substr $line, 31, 11;
  $MGN_FED_CALL_TOT2 = substr $line, 42, 2;
  $MGN_FED_CALL_TOT1 ="0" if (! $MGN_FED_CALL_TOT1);
  $MGN_FED_CALL_TOT2 ="0" if (! $MGN_FED_CALL_TOT2);
  $MGN_FED_CALL_TOT3 = join('.', $MGN_FED_CALL_TOT1, $MGN_FED_CALL_TOT
+2);
  $MGN_FEDSIG  = substr $line, 30, 1;
     if ($MGN_FEDSIG eq "+") {
        $MGN_FED_CALL_TOT = "-" . $MGN_FED_CALL_TOT3 ;
     }else{
        $MGN_FED_CALL_TOT = $MGN_FED_CALL_TOT3;
     }
[download]

Thanks!!!!