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

my $from_ten = make_counter(10);
my $from_three = make_counter(3);

print $from_ten->() . "\n";
print $from_ten->() . "\n";
print $from_three->() . "\n";