my @list = 1..8;
my @ref_list;

foreach my $i (@list) {
    push( @ref_list, sub { print "    \$i == $i\n" } );
}

foreach my $i (@list) {
    $i = "gone";
}

print "for SCALAR LIST\n";
while ( $code_ref = pop @ref_list ) {
    &$code_ref;
}

##</code><code>##

for (my $i = 1; $i <= 8; ++$i) {
    my $really_private = $i;
    push( @ref_list, sub { print "\t$really_private\n" } );
}

$_->() foreach @ref_list;

##</code><code>##

sub ret_simple_formatter {
    my $fmt = shift;
    return sub {sprintf($fmt, shift);};
}