漢数字をテキストで表示するカウンターにしたいんですが、
変換がどうもうまくいきません。
２３４５人が万二千三百四十五人と出てしまいます。
sub kansuji{
my($number) = $_[0];
my($return) = '';
my(@suji) = ("","一","二","三","四","五","六","七","八","九");
my(@keta) = ("","十\","百","千");
my(@oketa) = ("万","億","兆");
my(@nums) = split(//,$number);
@nums = reverse (@nums);
my($r) = @nums % 4;
my($limit) = int(@nums / 4);
for($j = 0; $j \= $limit; $j++){
my($ceiling) = $j == $limit ? $r :4 ;
for($i = 0; $i < $ceiling ; $i++){
my($f) = ($i != 0 && $nums[$i+$j*4] == 1) ? "" : $suji[$nums[$i+$j*4]];
$return = join("",$f,$keta[$i],$return) unless($nums[$i+$j*4] == 0);
}
$return = join("",$oketa[$j],$return) unless($j == $limit);
}
return $return;
}
どこが間違っているかご教授願います。