while(<FH>){
 chomp;
 my @fields = split;
 my $ip = shift @fields;
 foreach ( @fields ){
  $masterhash{$ip}{$_} = 1;
 }
}

##</code><code>##

for my $ip ( keys %masterhash ){
 print "$ip ", join (" ",keys %{$masterhash{$ip}}),"\n";
}