H-sort ってどーやってたっけ...

ODWブランドでつくってたコードのはずなのでこっちで...

			# 数値だけ抜き出し
			while(1)
			{
				/(\d+)/ or last;
				$fhash{$file} .= sprintf( "%032d", $1);
				$_ = $';
			}

			# 最後にファイル名添加して微妙な物を選別できる幼にする
			$fhash{$file} .= $file;

...

	# 数値のみでソーティング
	@keys = sort { $fhash{$a} cmp $fhash{$b} } keys %fhash;
	$entry=$#keys+1;

オーバーヘッド全虫ならsprintfすればいいだけか。
まぁ　遅いけど　いまのキチガイCPUスペックなら　かんけーねー