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