use threads;
use threads::shared;
my @A :shared;
for(0..9){push @A,[$_,$_+1,$_+2]}

Invalid value for shared scalar at /home/abc/threadtest.pl line 4
こうなってしまうのはなぜですか？エラーを回避する方法はありますか？