use strict;
use warnings;
use 5.10.0;
my $weapons_ref =
{
dagger => { cost => 8, damage => 4, armor => 0 },
shortsword => { cost => 10, damage => 5, armor => 0 },
warhammer => { cost => 25, damage => 6, armor => 0 },
longsword => { cost => 40, damage => 7, armor => 0 },
greataxe => { cost => 74, damage => 8, armor => 0 },
};
while ( my ($k1, $v1) = each %$weapons_ref ){
while ( my ($k2, $v2) = each %$v1 ){
say "$k1 $k2 $v2";
}
}