Trier dans un fichier

Bonjour
J'ai un soucis pour trier des enregistrement a l'interrieure d'un
fichier.

j'ai un fichier avec plusieurs enregistrements. je veux que les
enregistrement se trie dans l'ordre alphabetique par rapport =E0
l'enregistrement $toto[14]...

j'ai fait quelque chose du genre :

foreach $test01 (@PCVD)
{
chop $test01;
@xA01=3Dsplit /\|/,$test01;
@totoB2=3Dsort ({$xA01[14] } @xA01) ;

print "<font color=3Dred size=3D2 face=3Dtahoma>@totoB2<br>777\n";
print "</font>";=20
}