#!perl

use strict;
use warnings;

use List::MoreUtils qw{ any };

my @array = qw{ A B C D E X };

if (any { $_ eq 'X'} @array) {
    print 'YES';
}
else {
    print 'NO';
}
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.