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