$FirstItem[$FirstItem[$Index]]

##</code><code>##

      sub Read_File
      {
           while(<CLAIMS>)
           {
                 # (Choose one method only)

                 # 1: AoH method
                 my (%row);
                 @row{'a','b','c'} = unpack ("A8 A6 A2", $_);
                 push (@data, \%row);

                 # 2: AoA method
                 push (@data, [unpack ("A8 A6 A2", $_)]);
           }
      }

##</code><code>##

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

      # AoH
      print "$record->{a} | $record->{b} | $record->{c}\n";

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