#!/usr/bin/perl -wl
sub gen_counter {
    my $a = shift;
    return sub { @_ ? $a = shift : ++$a };
}

my $counter = gen_counter(3);
print $counter->();
print $counter->();
$counter->(8);
print $counter->();
print $counter->();