You could use Quantum::Superpositions - (from the docs):

        use Quantum::Superpositions;

        if ($x == any($a, $b, $c)) { ...  }
[download]

Update: In this specific case, that would translate to:

use Quantum::Superpositions;

$test = 7;

if ($test == any(7, 5, 3)) {
        print "\$test is ",any(7, 5, 3),"\n";
}
__OUTPUT__
$test is any(3,7,5)
[download]