ソートについて質問します。

クライアント(妻)の要望で数字は全角数字を使っているのですが、ソートすると１，１００，２になっちゃうんです。
それを１，２，１００にするために、いったん半角に変換してソートし、また全角に戻すってことをやっています。
しかもそれを
$data =~ s/０/0/g;
$data =~ s/１/1/g;
$data =~ s/２/2/g;
$data =~ s/３/3/g;
$data =~ s/４/4/g;
$data =~ s/５/5/g;
$data =~ s/６/6/g;
$data =~ s/７/7/g;
$data =~ s/８/8/g;
$data =~ s/９/9/g;
なんていう風に。

なんかもっとスマートに出来ませんか？