sub make_incrementor {
   my $inc_by = shift;
   my $value;
   return sub { $value += $inc_by }
}

$by2 = make_incrementor(2);
$by4 = make_incrementor(4);
$by2->(); $by2->(); $by4->();
print Dumper [$by2, $by4];