/:/ and $h{$`} += $' for <DATA>;
print "$_:$h{$_}\n" for sort keys %h;

__DATA__
red:27
yellow:102
green:311
yellow:12
blue:45
red:1
blue:2
green:13
[download]