超初心者向けCGI講座コミュのソート、あるいは正規表現

　めそめそコツコツ独学勉強しているうちにやっと、sortの項目に入りました。長い旅でした。
　アップした項目のINDEXを現在作っている最中なのですが、相当に野暮ったいプログラムになってしまいました。目下日にちの新しい順に並べている…というところなのですが、「あいうえお順」に並べるとか「カテゴリー別」に並べるとかいろんな並べ方を研究中です。

　何だか自分で書いていてわからなくなって来ているのですが、保存しているファイルは「0003-aiueo-ID756-DAT20051016.txt」こんな感じになっていて、「通し番号-ローマ字のフリガナ-IDナンバー-DAT日にち.txt」となっています。このファイルを読み込むと、「$number\t$year.$month.$mday\t($weekly[$wday])\t$hour:$min.$sec\t$title\t$spell\t$subtitle\t$category…」という順にデータが並んでいます。
　目次を作ろうと思うと、以下のようにファイル名を指定して一個ずつファイルを開いてタイトルを抜き出し…表示するという作業をしています。結構メモリを喰う野暮ったいやり方です。
　途中でソートしているのですが、これはファイル名のみでもってソートしているので、データの新しい順（古い順）で並べ替えることしかできていません。
　今、やろうと思っているのは、ファイル名のローマ字フリガナ（これは日本語タイトルのローマ字フリガナです。）を使って何とかアルファベット順に並べ替えてみようと思っていますが、どこから手を付けてよいのか？というところで進まなくなってしまいました。
　たぶん$filenameをsplitで切ってから、ファイル名のハイフン二つ目のローマ字のフリガナを通し番号と入れ替えて、それをソートしようかと思ったんですが、そうしてしまうとファイル名が違うものになってしまうんです。
　こういう時って通常どんな風に並べ替えをするんでしょうか？
　
　


opendir(DIR, "./datafile");
while (my $filename = readdir(DIR)) {
next if $filename eq '.';
next if $filename eq '..';
unshift(@indexlist,$filename);
}
closedir(DIR);
my @indexlist = sort @indexlist;
foreach (@indexlist) {
open TXT, '<' . './datafile/' . $_ or die $!;
my $line = <TXT>;
@_ = split /\t/ , $line; local ($no,$date,$wday,$time,$title,$id,$nannda,$category,$nanda2,$text,$count_letter,$imgpath,$aa,$bb,$epok) = @_;
print "<tr>\n";
print "<td style=\"border-top:solid 1px;border-color:#000000;\" valign=\"top\">$date:</td>\n";
print "<td style=\"border-top:solid 1px;border-color:#000000;\">\n";

if ($epok > $times-(86400*3)) { #NEWの表示
print "<img src=\"../img/tool/new.gif\"><a href=\"./textout.cgi?$_\" class=\"title\" target=\"_parent\">$title</a>";
} elsif ($epok < $times-(86400*3)) {
print "<img src=\"../img/tool/enpitsu.gif\"><a href=\"./textout.cgi?$_\" class=\"title\" target=\"_parent\">$title</a>";
}
print "</td>\n";
print "</tr>\n";
close TXT;
}