use strict;
use warnings;

sub my_while(&&){
  my($expr, $whileblock) = @_;
  while(&$expr()){
    &$whileblock();
  }
}

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