my $i = 0;
  sub inc { ++$i }

  foreach (1..10) { print "$_\n" if(inc == 3 .. inc == 8) }