use List::MoreUtils qw(pairwise);
my @mine = pairwise { $b =~ /^[yz]$/ ? 'I' : $a; } @a, @b;