#!/usr/bin/perl

while(<>)
  {
    chop;  # opera sobre $_
    ($u, $v) = split;
    $total{$u} += $v;
  }
foreach $u (sort keys %total)
  {
    printf "%-8s %4d\n", $u, $total{$u}
  }