#!/usr/bin/perl
sub crea_contador {
  my $base = shift;
	return sub {
	  return $base++;
	}
}

my $desde42 = crea_contador(42);
my $desde69 = crea_contador(69);

print "Desde42: ";
for (1..3) {
  print $desde42->(),", ";
}
print "\n";
print "Desde69: ";
for (1..3) {
  print $desde69->(),", ";
}
print "\n";
print "Uno mas de cada una: ";
print $desde42->(), ", ", $desde69->(),"\n";