>>81
全角数字の配列が@dataに格納されてるとして、

%num = ('０' => 0, '１' => 1, '２' => 2, '３' => 3, '４' => 4,
　　　　　'５' => 5, '６' => 6, '７' => 7, '８' => 8, '９' => 9, );

@data = sort { $temp{$a} <=> $temp{$b} }
　　　　　map { ($temp{$_} = $_) =~ s/(０|１|２|３|４|５|６|７|８|９)/$num{$1}/g; $_; }
　　　　　@data;

なんてのはどうです？