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

##</code><code>##

if (my @keys = grep {$opt{$_}} qw(a b c)}) {
    print "@keys match\n";