#!/usr/bin/perl
use warnings;
use strict;

my %seen;
while (<DATA>) {
    my ($name, $count) = split;
    $seen{$name} = $count unless exists $seen{$name};

}
print "$_ $seen{$_}\n" for keys %seen;

__DATA__
nick 5
nick 10
nick 20
john 78
erik 9
erik 12

##</code><code>##

    push @keep, $_ unless $seen{$name}++;

##</code><code>##

    print unless $seen{$name}++;