my $counter = sub { $anon->($anon, shift) };