シュワルツ変換

my @CSV = (
  '1,kame,34',
  '2,usagi,120',
  '3,panda,80',
);

# 3カラム目でソート
map {$_->[0]}
  sort {$a->[3] <=> $b->[3]}
    map {[split ',',$_]} @CSV;

CSVのデータ内に改行が入ってたらどうすんねんとか、
ダブルクォートで囲まれた文字列内にコンマ入ってたらどうすんねんとかは
とりあへず、置いとく。CSV読み込むところがメインじゃないので。

こらそこ!!!逃げたとか言うな >< !!