Select Code to Download

chomp(my @unsorted = (<DATA>));
my @sorted = sort { $a cmp $b } @unsorted;
...
115901,abc
107297,def
99213,mps

use Data::Dump qw(pp);

...
   $sums->{$let} += $num;
}
say pp($sums);