Select Code to Download

$VAR1 = {
          'class_name' => '1st level Fighter/1st level Thief/1st level
+ Mage',
...
          'id_name' => 'Kymaria_Zendelic',
          'first_name' => 'Kymaria'
        };

while (defined (my $hr = $csv->getline_hr($io))) { 
  # use $hr->{id_name} to get the id_name
}

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

    # do stuff with the above hashes.
}

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

...
    list_loop(\%general_information);
    list_loop(\%ability_scores);
}