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