my @test = qw/0 0 0 0 0 0/;
print $test[2];

>0

要は@testの初期化時に6個の0をセットしたいのです。
もっといい方法はあるのですか？