Select Code to Download

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