sub make_closures {
    my $j = 0;
    my @closures;

    while (++$j < 7) {
        push (@closures, sub {print $j, "\n";});
    }
}

foreach my $sub (&make_closures) {
    &$sub;
}