perl -e 'my $hashref = {
    normal_enemies => {
        cloud_guy => {
            attacktype => 'thunder',
            power => 4,
            hp => 5,
            },
        rain_man => {
            attacktype => 'water',
            power => 3,
            hp => 7,
            },
        flame_kid => {
            attacktype => 'fire',
            power => 6,
            hp => 4,
            },
        } };print map {$__=$_;join " ",$__,map {$_} keys %{$hashref->{$__}}} keys %$hashref'