$test_succeeded = 0;
for(@vars_to_test) {
    1 == $_ and ++$test_succeeded and last;
}
if ($test_succeeded) {
    ...
}