#! /usr/local/bin/perl -Tw


$a = genfoo();
$b = genfoo();

while (<>) {
    print "- ", $a->($_), "\n";
    print "- ", $b->($_+1), "\n";
}


sub genfoo {
    my $x = 0;

    return sub { if ($_[0] == 1) { $x++; } return $x; };

}