Or even:

c:\@Work\Perl>perl -wMstrict -le
"my @ra = (0, 0, 0, 1, 0);
 ;;
 my $test_succeeded;
 $test_succeeded = 1 == $_ and last for @ra;
 ;;
 print 'succeeded!' if $test_succeeded;
"
succeeded!
[download]