if ($item1 eq $item3 or $item2 eq $item3) {
    ## do something
}

##</code><code>##

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";
}