Just use grep

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

And you can even capture the keys for which true is returned

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