use Quantum::Superpositions;
use strict;

my @ary = (1..7);

my $testnum = 4;

if ($testnum == any(@ary)) {
    warn "$testnum is a member";
}