@sorted = keysort { pack "U*" => split /\./, $_ } @oids;