Для чего% ^ H используется в Perl?

Question

Кто-нибудь знает, что делает эта глобальная переменная?

Я не могу найти информацию от Google из-за специальных символов.

ОБНОВЛЕНИЕ

[root@dev-test v2]$ perldoc -v '%^H'
Ending switch processing.  Args are [%^H] with 0 errors.
/usr/bin/perldoc => Pod::Perldoc v3.14

Formatter class Pod::Perldoc::ToMan successfully loaded!
Will format with the class Pod::Perldoc::ToMan
Searching for %^H
Looking for %^H in /usr/bin /usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi /usr/lib64/perl5/site_perl/5.8.7/x86_64-linux-thread-multi /usr/lib64/perl5/site_perl/5.8.6/x86_64-linux-thread-multi /usr/lib64/perl5/site_perl/5.8.5/x86_64-linux-thread-multi /usr/lib/perl5/site_perl/5.8.8 /usr/lib/perl5/site_perl/5.8.7 /usr/lib/perl5/site_perl/5.8.6 /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl /usr/lib64/perl5/vendor_perl/5.8.8/x86_64-linux-thread-multi /usr/lib64/perl5/vendor_perl/5.8.7/x86_64-linux-thread-multi /usr/lib64/perl5/vendor_perl/5.8.6/x86_64-linux-thread-multi /usr/lib64/perl5/vendor_perl/5.8.5/x86_64-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.8 /usr/lib/perl5/vendor_perl/5.8.7 /usr/lib/perl5/vendor_perl/5.8.6 /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl /usr/lib64/perl5/5.8.8/x86_64-linux-thread-multi /usr/lib/perl5/5.8.8 . /usr/kerberos/bin /usr/lib64/ccache /usr/local/bin /bin /usr/bin
No documentation found for "%^H".

Answer 1

С http://perldoc.perl.org/perlvar.html:

• %^H
Хэш %^H обеспечивает такую ​​же семантику определения объема, что и $^H.Это делает его полезным для реализации прагм с лексической областью действия.См. perlpragma .

Эта переменная была добавлена ​​в Perl 5.6.