CSVファイルのソートをperlでやる方法はどうすればいいのですか？

つまり、
0,FOO,236
1,BAR,145
2,HOG,487
3,FUG,352

となってるCSVファイルを、３列目でソートして、


1,BAR,145
0,FOO,236
3,FUG,352
2,HOG,487

というように表示したいのですが・・・