print
   map  {sprintf qq{%-7s%2d\n}, @$_}
   map  {[$seen{$_->[0]} ++ ? q{} : $_->[0], $_->[1]]}
   sort {$a->[0] cmp $b->[0]}
   map  {[split]}
   <DATA>;