Select Code to Download

sub make_closures {
    my $j = shift;
    return (sub {++$j;}, sub {print $j, "\n";});
...

&$print1; &$bump1; &$print1;
&$print2; &$bump2; &$print2;

5
6
10
11