Select Code to Download

use List::Util    qw( uniq );
use Sort::Natural qw( natsort );
...
   my @hosts = natsort uniq @{ $data{ $ip } };
   say join "\t", $ip, @hosts;
}

use Sort::Natural qw( natsort );

...
   my @hosts = natsort keys %{ $data{ $ip } };
   say join "\t", $ip, @hosts;
}