sub arrays_intersect { grep { $_ ~~ $_[1] } @{$_[0]} }
push @z, arrays_intersect(\@x, \@y) ? 'y' : 'n';