Help for this page

Select Code to Download


  1. or download this
    use strict;
    
    ...
    } keys %{ $weapons_ref };
    
    print join(' ',$sum_cost, $sum_damage, $sum_armor), '\n';
    
  2. or download this
    157 30 0
    
  3. or download this
    use strict;
    use Data::Dumper;
    ...
    } keys %{ $weapons_ref };
    
    print Dumper($sum_result);
    
  4. or download this
    $VAR1 = {
              'armor' => 0,
              'cost' => 157,
              'damage' => 30
            };