for my $elem ( @a ){ push @z, $_ = ( first { $elem eq $_ } @b ) ? '+' : '-'; } [download]
In reply to Re^3: Failed array attemp by stevieb in thread Failed array attemp by Anonymous Monk