use strict;
use warnings;

my $pre = '';

while (<DATA>)
{
	chomp($_);
	next if /^$/;
	my ($name, $color) = split /\s+/, $_;
	($name ne $pre) ? (print "$name\t$color\n") : (print "\t$color\n");	
	$pre = $name;	
}
__DATA__
John     red
Mike     yellow
Peter    white
Peter    brown
Jim      purple
Antony   orange
Antony   green
George   black

Output:
-------
John    red
Mike    yellow
Peter   white
        brown
Jim     purple
Antony  orange
        green
George  black