my $cndiea = 0;
foreach my $del ( 0 .. $chntot ) {
   if ( substr( $aod[$yb], $del, 1 ) eq 'y' ) {
      $cndiea++;
   }
}
while ( $cndiea < $incrsdel ) {
    my $xda = int rand( $chntot + 1 );
    if (   substr( $aod[$yb], $xda, 1 ) eq 'a' )
    {
       substr $aod[$yb], $xda, 1, 'y';
       $cndiea++;
       last;
    }
}
##</code><code>##

my $cndiea = 0;
foreach my $del ( 0 .. $chntot ) {
    if ( substr( $aod[$yb], $del, 1 ) eq 'y' ) {
        $cndiea++;
    }
}
while ( $cndiea < $incrsdel ) {
     my $xda = int rand( $chntot + 1 );
     if ( substr( $aod[$yb], $xda, 1 ) eq 'a' ) {
        substr $aod[$yb], $xda, 1, 'y';
        $cndiea++;
        last;
     }
}
my $cndi = 0;
my $cndj = 0;
foreach my $dela ( 0 .. $chntot ) {
    if ( substr( $aod[$yb], $dela, 1 ) eq 'a' ) {
       $cndi++;
    }
    if ( substr( $aod[$yb], $dela, 1 ) eq 'y' ) {
       $cndj++;
    }
}
if ( $cndi == 0 ) {
    while ( $cndj < $incrsdel ) {
       my $xdb = int rand( $chntot + 1 );
       if ( substr( $aod[$yb], $xdb, 1 ) eq 'c' ) {
            substr $aod[$yb], $xdb, 1, 'y';
            $cndj++;
            last;
       }
   }
}