map { join ".", unpack "C*", $_ }
sort
map { pack "C*", split /\./, $_ }
@ips;