push @z, (grep { my $x = $_; grep { $x == $_ } @y } @x) ? 'y' : 'n';