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