Try this , it might give you an idea ...

my %HASH;

while (<DATA>) {
    my ($name , $value ) = split(/\s+/,$_);
    if ( exists( $HASH{$name} ) ) {
        $HASH{$name} .= ",$value";
    }else{
        $HASH{$name} = $value;
    }
    
}

foreach my $name (keys %HASH) {

    print "Name : $name and values : $HASH{$name}\n";

}

__DATA__
GEORGE 21
GEORGE 45
NICK   12
PETER  27
JIM    18
JIM    87
CHRIS  33
[download]