@ar = [ split //, $a ] ;

特殊変数$aを普通の変数としては(略