Just a suggestion. Instead of using Data::Dumper, whose output is really ugly, you might consider using the CPAN Data::Dump module instead. Watch what it does with this structure from the perldsc(1) manpage:

use strict;
use warnings;
use Data::Dump;

my $HoH = {
   flintstones => {
       lead  => "fred",
       pal   => "barney",
   },
   jetsons     => {
       lead  => "george",
       wife  => "jane",
       "his boy" => "elroy",
   },
   simpsons    => {
       lead  => "homer",
       wife  => "marge",
       kid   => "bart",
   },
};

dd $HoH;
[download]

produces this:

{
  flintstones => { lead => "fred", pal => "barney" },
  jetsons     => { "his boy" => "elroy", "lead" => "george", "wife" =>
+ "jane" },
  simpsons    => { kid => "bart", lead => "homer", wife => "marge" },
}
[download]

Isn’t that much tidier?