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

$_->() foreach @ref_list;