perl で出力先を切り替えるのにハッシュの要素を使いたい

Question

###前提・実現したいこと
Perl で、ある時はメッセージをログファイルに出力し、あるときは標準出力に出力するというようなことをするために、 print の引数？にハッシュの要素から取得したファイルハンドルを与えたい。

###発生している問題・エラーメッセージ
以下のメッセージが出ます。

String found where operator expected at ng.pl line 5, near "} "Hello main!\n""
	(Missing operator before  "Hello main!\n"?)

###該当のソースコード

#!/usr/bin/perl
use strict;
my $config = {};
$config->{'filehandle'} = \*STDOUT;
print $config->{'filehandle'} "Hello main!\n";

###試したこと
エラーメッセージの意味はわかるのですが、print の後ろにファイルハンドルを書く構文はあるはずで、なぜこれをファイルハンドルと認識してもらえないのかがわかりません。
ハッシュの要素ではなく、以下のように普通の変数を渡すと動きますが、その差がわかっていません。

#!/usr/bin/perl
use strict;
my $filehandle = \*STDOUT;
print $filehandle "Hello main!\n";

###補足情報(言語/FW/ツール等のバージョンなど)
OS: Mac OS Sierra 10.12.3

$ perl -V
Summary of my perl5 (revision 5 version 18 subversion 2) configuration:
   
  Platform:
    osname=darwin, osvers=16.0, archname=darwin-thread-multi-2level
    uname='darwin osx300.apple.com 16.0 darwin kernel version 15.0.0: wed apr 6 00:55:38 pdt 2016; root:xnu-3247.1.106.2.8~1development_x86_64 x86_64 '
    config_args='-ds -e -Dprefix=/usr -Dccflags=-g  -pipe  -Dldflags= -Dman3ext=3pm -Duseithreads -Duseshrplib -Dinc_version_list=none -Dcc=cc'
    hint=recommended, useposix=true, d_sigaction=define
    useithreads=define, usemultiplicity=define
    useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
    use64bitint=define, use64bitall=define, uselongdouble=undef
    usemymalloc=n, bincompat5005=undef
  Compiler:
    cc='cc', ccflags ='-arch x86_64 -arch i386 -g -pipe -fno-common -DPERL_DARWIN -fno-strict-aliasing -fstack-protector',
    optimize='-Os',
    cppflags='-g -pipe -fno-common -DPERL_DARWIN -fno-strict-aliasing -fstack-protector'
    ccversion='', gccversion='4.2.1 Compatible Apple LLVM 8.0.0 (clang-800.0.34)', gccosandvers=''
    intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
    ivtype='long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
    alignbytes=8, prototype=define
  Linker and Libraries:
    ld='cc -mmacosx-version-min=10.12.2', ldflags ='-arch x86_64 -arch i386 -fstack-protector'
    libpth=/usr/lib /usr/local/lib
    libs= 
    perllibs=
    libc=, so=dylib, useshrplib=true, libperl=libperl.dylib
    gnulibc_version=''
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=bundle, d_dlsymun=undef, ccdlflags=' '
    cccdlflags=' ', lddlflags='-arch x86_64 -arch i386 -bundle -undefined dynamic_lookup -fstack-protector'


Characteristics of this binary (from libperl): 
  Compile-time options: HAS_TIMES MULTIPLICITY PERLIO_LAYERS
                        PERL_DONT_CREATE_GVSV
                        PERL_HASH_FUNC_ONE_AT_A_TIME_HARD
                        PERL_IMPLICIT_CONTEXT PERL_MALLOC_WRAP
                        PERL_PRESERVE_IVUV PERL_SAWAMPERSAND USE_64_BIT_ALL
                        USE_64_BIT_INT USE_ITHREADS USE_LARGE_FILES
                        USE_LOCALE USE_LOCALE_COLLATE USE_LOCALE_CTYPE
                        USE_LOCALE_NUMERIC USE_PERLIO USE_PERL_ATOF
                        USE_REENTRANT_API
  Locally applied patches:
	/Library/Perl/Updates/<version> comes before system perl directories
	installprivlib and installarchlib points to the Updates directory
  Built under darwin
  Compiled at Jul 30 2016 16:59:44
  @INC:
    /Library/Perl/5.18/darwin-thread-multi-2level
    /Library/Perl/5.18
    /Network/Library/Perl/5.18/darwin-thread-multi-2level
    /Network/Library/Perl/5.18
    /Library/Perl/Updates/5.18.2
    /System/Library/Perl/5.18/darwin-thread-multi-2level
    /System/Library/Perl/5.18
    /System/Library/Perl/Extras/5.18/darwin-thread-multi-2level
    /System/Library/Perl/Extras/5.18
    .

Answer 1

実行すると以下のエラーが発生する為、構文解析で問題が発生していると思われます。
String found where operator expected at - line 4, near "} "Hello main!\n""

コンパイラーに、ここまではひとくくりであると指定してあげると動きます。
($config->{filehandle}を{}でくくります。)

use strict;
my $config = {};
$config->{'filehandle'} = \*STDOUT;
print {$config->{filehandle}} "Hello main!\n";

Comments

[mit0223]

ありがとうございました。解決しました。なんか、演算子の結合度みたいなのがあるんですね。まだ、ルールがよくわかっていません・・・

[ester41]

こちらに理由が書いてありますね。
http://perldoc.jp/docs/perl/5.8.8/perlobj.pod#Indirect32Object32Syntax

組み込み関数の先読みによる優先順位で、問題が発生するようです。

[mit0223]

URL ありがとうございました。スッキリしました。