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