12   AAAA
12   AAAA
15   BBBB
1222 CCCC
1    BBBB

##</code><code>##

use strict;
my $value;
my $key;
my $sum = 0;
my %yahoo = ();

while (<>) {
    ($value,$key) = split;
#    print "$key, $value\n";
#    $sum += $value;
#    print "\$sum is $sum\n";
    push (@{$yahoo{$key}}, ($sum += $value));
}

foreach $key (sort keys %yahoo) {
       print "$key: @{$yahoo{$key}}\n";
}