Select Code to Download

use strict;
use warnings;
...
    printf "  %-8.8s:%3d\n", $attr, $weapons_ref->{$weapon}{$attr};
  }
}

$VAR1 = {
          'dagger' => {
...
  armor   :  2
  cost    : 25
  damage  :  6