in reply to testing more than one item for equality

I am assuming that the usual 
if ($item1 eq $item3 or $item2 eq $item3) {
    ## do something
}

[download]
is not good enough for you. Then you may get some help from CPAN: 
use strict;
use warnings;
use Perl6::Junction qw(any);

my ($item1, $item2, $item3) = qw(gem camel snake);

if (any($item1, $item2, $item3) eq 'camel') {
    print "Code away!\n";
}
else {
    print "I would rather watch Gilligan's Island\n";
}

[download]

In Section Seekers of Perl Wisdom