Heres one way of doing it:

my @normal_enemies = keys %{$hashref->{normal_enemies}};
print "normal enemies:\n@normal_enemies\n\n";

my %chucky = %{$hashref->{items}{weapons}{sword_chucks}};
print "sword chucks:\n";
for (keys %chucky) {
    print "$_ - $chucky{$_}\n";
}
[download]