for (1..100) {
    eval {
       if ($_ % 2 == 0) {
           last;
       }
       print $_, "\n";
    };
}