$x = (1 == 1)
  ? 'true'
  : 'false'

##</code><code>##

#!/usr/bin/perl

use warnings;
use strict;

use List::Util qw (first);

my @a = qw( 1 2 3 4 5 );
my @b = qw( 9 8 2 1 5 );

my @z;

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

    push @z, $result;
}

print @z;