# Program : 2
#!/usr/bin/perl

use strict;

my $match = 'A';

my @array = qq[Anthony Mark Alex A];
if ( grep( /$match$/,@array ) ) {
   print "Matched\n";
}
<code>
Output :
Matched