Select Code to Download

DATA:
A,10
...
B,16
C,17
D,18

#!/usr/bin/perl

...
}

print Dumper \%sum;

output:
$VAR1 = {
...
          'B' => 31
        };