my $counter = do { my $c; sub { $c++ } };
print &$counter, "\n" for 1..10;