Good work! And without using Data::Dumper module output can be done via

foreach (keys %hash) {print "$_ => $hash{$_}\n";}
[download]