for ( my $i = 0; $i < 10; $i++ ) {
    my $j = $i;
    if ( $i == 5 ) { goto nextpoint; }
  }

  for ( my $k = 0; $k < 10; $k++ ) {
    my $m = $k;
nextpoint:
    print( "$m\n" );
  }