#...
split_pack => sub {
            my @sorted = map { join '.', unpack("CCCC", $_) }
                sort { $a cmp $b }
                map { pack("CCCC",split /\./) } @ips;
        },
#...