関数のプロトタイプ

問題です。このスクリプトの出力を予想して下さい。

#!/usr/local/bin/perl

use strict;

# 関数1の定義

sub test1($){

        #引数を出力

        print join(',', @_) . "\n";

}


my @hoge = ('hogehoge', 'foofoo');
# メインルーチン(呼び出し)

test1(@hoge);

&test1(@hoge);

main::test1(@hoge);

main->test1(@hoge);

test2(@hoge);


# 関数2の定義

sub test2($){

        #引数を出力

        print join(',', @_) . "\n";

}