#!/usr/bin/perl

sub make_counter_pair {
    my $start = shift;
    warn "lexical variable ".\$start." created";
    return (
        sub {
            warn "accessing ".\$start;
            $start++
        },
        sub {
            warn "accessing ".\$start;
            $start++
        }
    )
}

my ($c1, $c2) = make_counter_pair(10);
my ($c3, $c4) = make_counter_pair(3);

print $c1->() . "\n";
print $c2->() . "\n";

print $c1->() . "\n";
print $c2->() . "\n";

print $c3->() . "\n";
print $c4->() . "\n";

print $c3->() . "\n";
print $c4->() . "\n";