1: {
2:   my $foo = "a string";
3:   INNER: {
4:     print "\$foo: [$foo]\n";
5:   }
6: }
7: goto INNER unless $i++;

__output__

$foo: [a string]
$foo: []