Help for this page
while(<FH>){ chomp; ... $masterhash{$ip}{$_} = 1; } }
for my $ip ( keys %masterhash ){ print "$ip ", join (" ",keys %{$masterhash{$ip}}),"\n"; }