my @sorted_idxs =
   sort { $HOST_NAME[$a] cmp $HOST_NAME[$b] }
      0..$#HOST_NAME;

my @sorted_HOST_NAME = @HOST_NAME[ @sorted_idxs ];
my @sorted_HOST_IP   = @HOST_IP[   @sorted_idxs ];
my @sorted_HOST_DESC = @HOST_DESC[ @sorted_idxs ];
[download]