問題です。このスクリプトの出力を予想して下さい。 #!/usr/local/bin/perl use strict; # 関数1の定義 sub test1($){ #引数を出力 print join(',', @_) . "\n"; } my @hoge = ('hogehoge', 'foofoo');# メインルーチン(呼び出し) test1(@hoge); &test1(@hog…