if ($cache_ref->{Index}[$i]=~/\Q($fromto_digest)/ or ref->{Index}[$i]=~/\Q($tofrom_digest)/)
      {
        $cache_index=$1;
        $index_match=1;
        last;
      }