$has_even = 1, last unless $_ % 2;