johngg@aleatico:~$ perl -Mstrict -Mwarnings -E 'say q{};
my $rcShow = do {
   my $i = 1;
   sub { return $i ++ };
   };
say $rcShow->() for 1 .. 3;'

1
2
3