Hi André,

hier noch mal im Klartext meine Lösung für Dich:

=cut
#!/usr/bin/perl

sort by ungarian Vocals

@dirty_list = qw(A Ó P Á B C Ö D Õ E É B O Ö F G H I Í A A A);

@sort_list = sort { roro($a) <=> roro($b) } @dirty_list;

for (@sort_list){print "$_\n"}
####################################################################

RoRo Translation Function, sort by own list :)

sub roro{
 my $v = shift;
 my %ownlist = (
  "A",1,
  "Á",2,
  "B",3,
  "C",4,
  "D",5,
  "E",6,
  "É",7,
  "F",8,
  "G",9,
  "H",10,
  "I",11,
  "Í",12,
  "N",13,
  "O",14,
  "Ó",15,
  "Ö",16,
  "Õ",17,
  "P",18
 );
 return $ownlist{$v};
}
=cut

Mit anderen Worten: Du musst dir die Liste der Sortier Reihenfolge einfach selbst schreiben - in den o.g. hash in der Subfunktion.

Viele Grüße, Rolf