use strict;
use warnings;
use Tie::IxHash;

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

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