<perl>
#------------------------ normale Ausgabe
@Sx=("A","B","C","D");
@Sy=(10,2,7,100);
@S1{@Sx}=@Sy;
out dump(%S1);
foreach $key (sort { $S1{$b} <=> $S1{$a} }(keys(%S1))) # Richtige Sortierung ""
{
out "$key:".$S1{$key}." ";
}

sub{
@Sx=("A","B","C","D");
@Sy=(10,2,7,100);
@S2{@Sx}=@Sy;
out dump(%S2);
foreach $key (sort { $S2{$b} <=> $S2{$a} }(keys(%S2))) # KEINE richtige Sortioerung
{
out "$key:".$S2{$key}." ";
}
}

out "<hr>";
out parse "<sorter></sorter>",\%tag;
</perl>