Читаю исходники RTF парсера. 1: sub _call_control_handler { 2: if (exists $_DestStack[-1][2]{$_[0]}) { 3: _flush_text(); 4: print {::TRACE_FH} "Handling '$_[0]'\n" if TRACE_GROUPS; 5: &{$_DestStack[-1][2]{shift()}}; 6: # } else { # print {::TRACE_FH} "Not Handling '$_[0]' in $_DestStack[-1][0]\n"; } } Что происходит в строке 1? Что за конструкция: $_DestStack[-1][2]{$_[0]} А в 5-ой строке? Что за {::TRACE_FH} в 4-ой строке?