Dateiinhalt sortiert ausgeben

[Beat]

C:>perl -w
[code lang=perl]my @ar = <DATA>;
@ar = map { $_->[0] }
      sort { $a->[1] <=> $b->[1] }
      map { [ $_, ( /(\d+)/ )[0] ] } @ar;
foreach (@ar) {print $_}

@Beat: Kennst Du die Schwartz'sche Trafo genau so wenig wie Hotte?

Ich kenne Sie schon, gebrauche sie aber selten.
Besonders dein vorliegendes Beispiel ist ja für einen Neuling nicht so durchsichtig, indem du einen anonymen Array mit zwei Elementen erzeugst.
In der Tat nehme ich oft lieber einen Hilfshash.

Aber ich nehme die Transformation für dich mal auseinander
@ar = map { $_->[0] }
      sort { $a->[1] <=> $b->[1] }
      map { [ $_, ( /(\d+)/ )[0] ] } @ar;

wird zu
my @temp =  map { [ $_, ( /(\d+)/ )[0] ] } @ar;
@temp = sort { $a->[1] <=> $b->[1] } @temp;
@ar = map { $_->[0] } @temp;

mfg Beat