#!/usr/bin/perl -w
use strict;

my @fruits = qw(banana plum apple strawberry pea);

if ( grep {/apple/}@fruits ) #perhaps /^apple$/ 
{
   print "apple found!\n";
}
else
{
   print "apple not fouund\n";
}

__END__
apple found!