PerlでCSVファイルをソートする方法

#!/usr/local/bin/perl
#
# csvデータのソート
#

{
  # パラメータの設定
  $file = 'data.csv'; # csvファイル名
  $key_num = 2;    # キーの数
  $key_idx[0] = 0; # キーのカラム番号
  $key_dir[0] = 1; # 0:昇順 1:降順
  $key_typ[0] = 0; # 0:文字 1:数字
  $key_idx[1] = 1; # キーのカラム番号
  $key_dir[1] = 0; # 0:昇順 1:降順
  $key_typ[1] = 0; # 0:文字 1:数字

  # csvファイルのオープン
  unless (open (INF, "< $file")) {
    print "Read open error ($file).\n";
    exit (1);
  }

  # CSVファイルの読み込み
  @tbl = ();
  for ($line = 0; ; $line++) {
    tr/\r\n//d;
    @rec = split(',');

    $colm = 0;
    foreach $fld (@rec) {
      $tbl[$line][$colm] = $fld;
      $colm++;
    }

    @idxtbl[$line] = $line;
  }

  # csvファイルのクローズ
  close(INF);

  # ソート
  @idxtbl = sort tblsort @idxtbl;

  # ソート結果表示
  $line_max = @tbl;
  $colm_max = @{$tbl[0]};
  for ($line = 0; $line < $line_max; $line++) {
    for ($colm = 0; $colm < $colm_max; $colm++) {
      if ($colm) { print ","; }
      print "$tbl[$idxtbl[$line]][$colm]";
    }
    print "\n";
  }
}

sub tblsort {
# 比較関数
#   $a < $b : -1
#   $a > $b : 1
#   $a = $b : 0
  my ($i, $idx, $stat);

  $stat = 0;
  for ($i = 0; $i < $key_num; $i++) {
    $idx = $key_idx[$i];

    if ($tbl[$a][$idx] lt $tbl[$b][$idx]) {
      if ($key_dir[$i]) { # 降順
        $stat = 1;
      } else { # 昇順
        $stat = -1;
      }
      last;

    } elsif ($tbl[$a][$idx] gt $tbl[$b][$idx]) {
      if ($key_dir[$i]) { # 降順
        $stat = -1;
      } else { # 昇順
        $stat = 1;
      }
      last;
    }
  }

  return($stat);
}