プロトタイプ宣言

test.pl

sub hoge (&) {
    my ($callback) = @_;
    $callback->();
}

# subがない
hoge {
    print "hisada\n";
};

sub hogehoge (&@) {
    my ($callback, @list) = @_;
    $callback->(@list);
}

# , がない
my @huga = qw(piyo chinko);
hogehoge {
    for my $name (@_) {
        print $name, "\n";
    }
} @huga;