Select Code to Download

      sub Read_File
      {
           while(<CLAIMS>)
...
                 push (@data, [unpack ("A8 A6 A2", $_)]);
           }
      }

      my ($record) = $data[$n];  # Index starts at 0, not 1

      # AoH
...

      # AoA
      print "$record->[0] | $record->[1] | $record->[2]\n";