my $i= 0;
my @b = split(//, $a);
foreach my $w (@b) {
$ar[0][$i++] = $w;
}
これを、もうちょっと簡単にというか
(@ar[0]) = split(//, $a);
みたいな書き方（これはエラーでます）できないでしょうか？