my ( @ref_list, $code_ref, $i );

#pass one
#for SCALAR LIST
for $i (1..8) {
    push( @ref_list, sub { print "    \$i == $i\n" } );
}

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

#pass 2
#for INIT ; TEST ; INCREMENT
for (  $i = 1; $i <= 8; $i++ ) { 
	my $o;
	$o=$i;
    push( @ref_list, sub { print "    \$i == $o\n" } );
}

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