#!/usr/bin/perl

use strict;
use warnings;

use Perl6::Junction qw/any/;

my @array = qw(1 2 3 23 7 26);
my $value = 23;

(any(@array) == $value) ? print "yes\n" : print "no\n";