perlのsort関数は一桁の数字しかちゃんとソートできないんでしょうか?