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

##</code><code>##

my %k = map {($_, 1)} @y;
for my $x (@x) { push @z2, (exists $k{$x}) ? '+' : '-'; }