Select Code to Download

for my $key (keys %$characters) {
  my $character = $characters->{$key};
...

# about 30 more lines of code to munge the data
}

my $characters = {
  Bink => {
...
    book => '0',
  },
};

character_tests.pl: Use of uninitialized value in split at character_t
+ests.pl line 132
character_tests.pl: Use of uninitialized value $first_book in pattern 
+match (m//) at character_tests.pl line 134
character_tests.pl: Use of uninitialized value $first_book in pattern 
+match (m//) at character_tests.pl line 134
character_tests.pl: Use of uninitialized value $first_book in substitu
+tion (s///) at character_tests.pl line 135
character_tests.pl: Use of uninitialized value $first_book in array el
+ement at character_tests.pl line 136