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