ソート処理

以下のスクリプトが私が試した内容です。

比較してみて下さい。

my @tmp;
while (<DATA>) {
push @tmp, $_;
}
@tmp = map {$_->[0]} sort {$b->[1] <=> $a->[1]} map {[$_, split /<>/]}@tmp;
print @tmp;
__END__
3.5<>abc.txt<>あいうえお<>aaaaa
4.6<>def.txt<>かきくけこ<>bbbbb
2.8<>ghi.txt<>さしすせそ<>ccccc
5.1<>jkl.txt<>たちつてと<>ddddd

ソート処理のコードには間違いがないのですから、その入力@tmpを疑うべきではないでしょうか。

@tmpがどうなっているか単純にprint '@tmp: ', "\n@tmp\n";みたいなのを入れてみてチェックしてみたら解決につながると思います。
# 別の処理をしてからこのソート処理をするのであれば、別の処理はソート処理の入力に相応しい形式で出力させる必要があります
# ソート処理後に別の処理で変更されている可能性もあります
# No.1の説明で理解できないのであれば、No.6の方のようなコードの方が理解した上で改変できていいのではないでしょうか

No.6の方のやり方はハッシュを使っていますが、そのキーとして数値を使うのは問題だと思います (数値は異なるレコードで重複する場合があり得ると思うので)。もしこのように数値を@scoreとして取り出しているのであれば、%all_hなどは必要なく単純に
for(sort {$score[$b] <=> $score[$a]} 0..$#score) {
print $data[$_]; # @dataと@tmpは同じもの
}
のようにすればいいのではないでしょうか。つまり、No.3と同様のコードを示すと、

my @tmp;
my @score;
while (<DATA>) {
push @tmp, $_;
push @score, (split /<>/)[0];
}
for (sort {$score[$b] <=> $score[$a]} 0..$#score) {
print $tmp[$_];
}
__END__
3.5<>abc.txt<>あいうえお<>aaaaa
4.6<>def.txt<>かきくけこ<>bbbbb
2.8<>ghi.txt<>さしすせそ<>ccccc
5.1<>jkl.txt<>たちつてと<>ddddd

既に No.3 で答えは出ています。

あなたの質問に書いた処理と No.3 の処理は違います。(sortの対象が違います)。
よく読んで下さい。

素人考えですが、こんなんどうでしょう。

ご希望の結果にはなると思います。

@data=qw/3.5,abc.txt,あいうえお,aaaaa 4.6,def.txt,かきくけこ,bbbbb 2.8,ghi.txt,さしすせそ,ccccc 5.1,jkl.txt,たちつてと,ddddd/;

foreach(@data){
/^([\d|.]+?),/mg;
push @score,$1;
}

$score_n = @score;

for ($i=0;$i<$score_n;$i++){
$all_h{$score[$i]}=$data[$i];
}

for(sort { $b <=> $a } keys %all_h){
print "$all_h{$_}\n";
}

ちなみにリファレンスと無名配列による多次元配列は以下のサイトがわかりやすいかと。

参考URL：http://takenaka-akio.cool.ne.jp/doc/perl_kiso/re …

No.3のスクリプトを動かしてみましたか？

その結果と比べてみてどうでしょう？

・・・もしかして　@tmp　の中身、

my @tmp = (
3.5, "abc.txt", "あいうえお", "aaaaa\n",
4.6, "def.txt", "かきくけこ", "bbbbb\n",
2.8, "ghi.txt", "さしすせそ", "ccccc\n",
5.1, "jkl.txt", "たちつてと", "ddddd\n",
);

みたいになってたりしませんか？
#そうだったにしても１行目の　3.5 4.6 2.8 5.1　は謎ですが。

No.1です。

先ほどのお話は

3.5 abc.txt あいうえお　aaaaa

は

3.5<>abc.txt<>あいうえお<>aaaaa

の打ち間違えで、
$tmp[0]　が　3.5<>abc.txt<>あいうえお<>aaaaa
であると仮定しています。

@tmp = map {$_->[0]} sort {$b->[1] <=> $a->[1]} map {[$_, split /<>/]}@tmp;

です。

[$_, split /<>/]
で、無名配列に
0　のところに　3.5 abc.txt あいうえお　aaaaa
1　のところに　3.5
2　のところに　abc.txt
3　のところに　あいうえお
4　のところに　aaaaa
が入ります。
ですから　sort　はインデックス　1　の部分を使います。
それと昇順降順が逆ですので、
{$b->[1] <=> $a->[1]}
となります。