use 5.012;
use Quantum::Superpositions;

my $myfruit = 'apples';

if ( $myfruit eq any( qw(bananas apples oranges) ) ) {
    print "I like $myfruit!";
}
else {
    print "I don't like $myfruit!";
}