String found where operator expected at ... (Missing operator before ...?)

String found where operator expected at ./status_log_spliter.pl line 109, near "} "$line\n""
        (Missing operator before  "$line\n"?)

ある Perl スクリプトを実行すると、実行はできるけど「String found where operator expected」と怒られるので、

print(${$fh} "$line\n");

を

print({${$fh}} "$line\n");

に変更してみたら出なくなった。