use strict;
use warnings;
use Data::Dumper;

my $weapons_ref = {
  dagger     => { cost => 8,  damage => 4, armor => 0 },
  shortsword => { cost => 10, damage => 5, armor => 1 },
  warhammer  => { cost => 25, damage => 6, armor => 2 },
  longsword  => { cost => 40, damage => 7, armor => 0 },
  greataxe   => { cost => 74, damage => 8, armor => 0 },
};

print Dumper($weapons_ref);

# Print by hand so it looks a bit prettier. :)
for my $weapon ( sort keys %{$weapons_ref} ) {
  printf "%-14.14s\n", $weapon . ( '-' x 20 );
  for my $attr ( sort keys %{ $weapons_ref->{$weapon} } ) {
    printf "  %-8.8s:%3d\n", $attr, $weapons_ref->{$weapon}{$attr};
  }
}