if (grep {$opt{$_}} qw(a b c)}) {