#!/usr/bin/perl

use warnings;
use strict;

my $str = <<PAIRS;
GEORGE 21

GEORGE 45

NICK   12

PETER  27

JIM    18

JIM    87

CHRIS  33
PAIRS

my $name ='';
$str = join "\n\n", map {  sprintf "%-8s %s", ($_->[0] ne $name ? $name = $_->[0] : ''), $_->[1]} map { [split " ", $_, 2] } split /\n+/, $str;
print $str;

##</code><code>##

GEORGE   21

         45

NICK     12

PETER    27

JIM      18

         87

CHRIS    33