my $i = 0;
my @new = map { ++$i; /^[yz]$/ ? 'I' : $a[$i] } @b;