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", $_)]);
           }
      }