Select Code to Download

use strict;

...
} keys %{ $weapons_ref };

print join(' ',$sum_cost, $sum_damage, $sum_armor), '\n';

157 30 0

use strict;
use Data::Dumper;
...
} keys %{ $weapons_ref };

print Dumper($sum_result);

$VAR1 = {
          'armor' => 0,
          'cost' => 157,
          'damage' => 30
        };