Select Code to Download

foreach $member (@ops) {
    print "Comparing member '$member' against '$who'\n";
...
        last;
    };
};

$op = grep { $_ eq $who } @ops ? 1 : 0;