my $count = 0;
sub make_two_counters {
    return sub{ $count++ }, sub{ $count+=10 }
}

my ($counter_plus_one, $counter_plus_ten) = make_two_counters();
print $counter_plus_one->() . " ($count)\n";
print $counter_plus_one->() . " ($count)\n";
print $counter_plus_ten->() . " ($count)\n";
print $counter_plus_one->() . " ($count)\n";
print $counter_plus_one->() . " ($count)\n";

__OUTPUT__

0 (1)
1 (2)
12 (12)
12 (13)
13 (14)