Select Code to Download

while(<FH>){
 chomp;
...
  $masterhash{$ip}{$_} = 1;
 }
}

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