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";
    }
}