use strict;
use warnings;
use Devel::Peek;

my $i = 0;
{
  my $x = "foo";
  sub bbtest {
    $x .= " bar";
    print "subroutine: ", $x, $/;
  }
}
{
  my $x = "foo";
  SUB_BBTEST: {
    Dump($x);
    $x .= " bar";
    print "bareblock : ", $x, $/;
  }
}
goto SUB_BBTEST while $i++ < 3;
bbtest() while $i++ < 7;