I got the asnwer from brian_d_foy's Mastering Perl book.

# my mistake not to define the type of the variable
# not lexical, but in main package
$main::var_for_this = q{};

print *var_for_this{NAME};
[download]