Select Code to Download

@array=qw/2 3 7 5 34/;
$no=13;
if(grep {$_ == $no} @array)
...
} else {
    print "Condition false";
}