sub mynext { next }
for (1..10) {
  mynext();
  print $_;
}