for (10..13) {
  print "Top loop $_\n";
  do_sub($_);
  print "-- after sub\n";
}

sub do_sub {
  my ($a) = shift;
  do {
    next if $a < 15;
    print "Sub $a\n";
  } while ($a < 20);
}