>>81
こんな感じかな。けど、比較の度に全角→半角を行うから多分遅い。
結局、全部半角に変換して比較して元に戻す方がよさそう。

@a = qw(１ ２００ ３ １２３);
print join " ", sort num @a;

sub num {
@N=qw(０ １ ２ ３ ４ ５ ６ ７ ８ ９);
($A,$B)=($a,$b);
for($i=0;$i<10;++$i){
$A=~s/$N[$i]/$i/g;
$B=~s/$N[$i]/$i/g;
}
return $A<=>$B;
}