Select Code to Download

for my $elem ( @a ){
    push @z, $_ = ( first { $elem eq $_ } @b ) ? '+' : '-';
}

>perl -wMstrict -MData::Dump -le
"use List::Util      qw(first);
...
$_ == 'foo'
++--+
++--+