for ( 1 .. 100 ) {
    next if $_ == 50;
    print "$_\n";
}