perl - 関数への Perl 引数の受け渡し

Question

小さなテストスクリプトを書きました。

#!/usr/bin/perl -w

use strict;

my $head="a b";

sub test
{
my @arr=split / /,@_;
print $arr[0];
}

test $head;

代わりに、出力は1実際に期待していaます。誰がどこが間違っているのか教えてもらえますか