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