use strict;

my @ops = ( 1 .. 20 );
my $who = 10;
my $op;

foreach my $member (@ops) {
        if ($member == $who) {
                $op = 1;
                last;
        }
}
print "Found one\n" if $op;