sub make_counter { my $start = shift; return sub { warn \$start; $start++ } }