my @sorted_ips = map substr($_, 4),
                 sort
                 map inet_aton($_).$_,
                 @ips;