while (defined (my $hr = $csv->getline_hr($io))) { 
    my %general_information = (
                               "class(es)" => $hr->{class_name},
                               alignment => $hr->{alignment},
                               race => $hr->{race},
                               gender => $hr->{gender},
                              );

    my %ability_scores = (
                          strength => $hr->{strength},
                          dexterity => $hr->{dexterity},
                          constitution => $hr->{constitution},
                          intelligence => $hr->{intelligence},
                          wisdom => $hr->{wisdom},
                          charisma => $hr->{charisma},
                         );

    # do stuff with the above hashes.
}