my $my_j = $j;
push @closures, sub { print $my_j };