while (defined (my $hr = $csv->getline_hr($io))) { 

    my %general_information = (
                               "class(es)" => $hr->{class_name},
                               map { $_ => $hr->{$_} } qw/alignment race gender/;
                              );

    my %ability_scores = (
                          map { $_ => $hr->{$_} } qw/strength
                          dexterity
                          constitution
                          intelligence
                          wisdom
                          charisma/
                         );

    # here you can use them, same as previous example.
    list_loop(\%general_information);
    list_loop(\%ability_scores);
}