use strict;

sub make_ref {
  my $name = shift;
  my $i = 99;
  return sub {
    print "ref $name: ",$i++,"\n";
  }
}

my $ref1 = make_ref("sub1");
my $ref2 = make_ref("sub2");

for (1 .. 10) {
  $ref1->();
  $ref2->() if $_ % 2 == 0;
}