Select Code to Download

use strict;
use warnings;
...
                        $b[ $_ - 1 ] ne q{z}
                    } 0 .. $#b ];
print qq{@aNew};

1 9 3 5 6 4 3