Hi, on a side note, you don't need to pass to Data::Dumper a reference to the structure you are dumping, if that structure is already a reference.

my %hash = ( foo => 'bar' );
my $href = { baz => 'qux' };

print "   hash: ", Dumper( \%hash ), "\n";
print "hashref: ", Dumper( $href  ), "\n";
[download]

Hope this helps!