for ( my $i = 0; $i < 10; $i++ ) {
    my $j = $i;
    if ( $i == 5 ) { goto newlocation; }
  }
newlocation:
  print( "jumped out" );

##</code><code>##

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

  print( "jumped out" );