Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
  my $href = shift;
  sum0 map /cost/ ? $href->{$_} : costof( $href->{$_} ), keys %$href;
  }

Select or download this
```
7400 is the total where cost is found
```