Select Code to Download

#!/usr/bin/perl
use strict;
...
my $damage = sum(map $_->{damage}, values %$weapons_ref);

print "cost: $cost  damage: $damage\n";

cost: 157  damage: 30