Assuming that your names are always grouped this should work. It also assumes that names and numbers are of the length and magnitude shown in the OP, but adjustments to the sprintf() would be simple. Here it is

use strict;
use warnings;

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

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

and when run, it produces

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

If your names were not already grouped you could insert a sort like this

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

I hope this is of use.

Cheers,

JohnGG