use Sort::Key qw(keysort);

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