Next | You can't get there from here | 9 |
sub total { my ($sizes, $values, @items) = @_; my $total_size = 0; my $total_value = 0;
for my $item (@items) { $total_size += $sizes->{$item}; $total_value += $values->{$item}; } return ($total_size, $total_value); }
Next | Copyright © 2005 M. J. Dominus |