Select Code to Download

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

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