Re^2: More while issues

[Dandello]

Considering the vast majority of my variables look like $dr5[$rn] and $datay{$data[$drp]}, $chntot (change total) is clear as day.

We really need smileys here. - I wonder what chntot means in Nepalese.

This is the latest working version BTW

sub rankdwn {
    my ( $yb, $chntot, $incrsdel ) = @_;
    my $cnd_a = $aod[$yb] =~ tr/a/a/;
    my $cnd_y = $aod[$yb] =~ tr/y/y/;

    my $letter = 'a';
    if ( ( $cnd_a + $cnd_y ) <= $incrsdel ) {
        $aod[$yb] =~ s/a/y/gsxm;
        $cnd_y += $cnd_a;
        $letter = 'c';
    }
    while ( $cnd_y < $incrsdel ) {
        my $xda = int rand( $chntot + 1 );
        if ( substr( $aod[$yb], $xda, 1 ) eq $letter ) {
            substr $aod[$yb], $xda, 1, 'y';
            $cnd_y++;
        }
    }
    return;
}