my @order = sort { $HOST_NAME[$a] cmp $HOST_NAME[$b] } 0 .. $#HOST_NAME;
foreach my $i (@order) {
   print "$HOST_IP[$i]:$HOST_NAME[$i]:$HOST_DESCRIPTION[$i]\n";
}