#!/usr/bin/perl

sort by own list

@xlist = qw(D D E É Í A A I Í B C D E Á É);

@xay = sort { roro($a) <=> roro($b) } @xlist;

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

RoRo Translation Function, sort by own list :)

sub roro{
 my $v = shift;
 my %ownlist = (
        "A",0,
 "Á",1,
 "B",2,
 "C",3,
 "D",4,
 "E",5,
 "É",6,
 "F",7,
 "G",8,
 "H",9,
 "I",10,
 "Í",11
 ); # legt die Reihenfolge fest...
 return $ownlist{$v};
}