for (0 .. 99) {
    print "$_\n";
    last if $_ == 42;
}