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

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