push @closures, eval "sub { print "\Q$j\E" }";

##</code><code>##

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