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