sub DESTROY { print("DESTROYED\n"); }

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

##</code><code>##

DESTROYED
jumped out