meta_for ( my $i = 0 ; $i < $l ; $i++ ) {

        foreach my $nucl (@nucleotides) {
            substr( $cand_motif, $i, 1 ) = $nucl;

    } # meta_for

            push @enumerated_motifs, $cand_motif;

            #print "$cand_motif\n";

    meta_end_for ( my $i = 0 ; $i < $l ; $i++ ) {

        } # foreach

    } # meta_end_for