It doesn't need to be quite as bad as that... though still, bad enough:

my_while { $i < 10 } sub {
  print "i: $i\n";
  my $j = 0;
  my_while { $j < 10 } sub {
    print "j: $j\n";
    $j++;
  };
  $i++;
};
[download]