Select Code to Download

use strict;
use warnings;
...
   sort { $a->[ 1 ] cmp $b->[ 1 ] }
   map  { [ $_, inet_aton($hosts{ $_ }->{ ip } ) ] }
   keys %hosts;

host8 - 3.77.45.22
host5 - 10.17.227.3
...
host7 - 172.16.1.1
host6 - 192.168.1.6
host4 - 192.168.31.8