use warnings;
use strict;

my $myfruit = 'apples';

if (grep { $myfruit eq $_ }  ("bananas","apples","oranges")){
  print "I like $myfruit!";
}
else {
  print "I don't like $myfruit!";
}
[download]

See also:

• List::Util
• List::MoreUtils