Help for this page

Select Code to Download

Select or download this

my %totals;
while ( <DATA> ) {
   chomp;
   /(^[a-z].*$)/i or $totals{$1} += $_;
}