hi,
Wie kann ich denn noch ein weiterer sort hinzufügen für nächste Feld?
Häng einfach die sorts aneinander:
foreach my $fam (sort{$HoA{$a}->[2] <=> $HoA{$b}->[2]} sort{$HoA{$a}->[0] cmp $HoA{$b}->[0]} keys %HoA){
print join("\t", @{$HoA{$fam}}), "\n";
}
Hotti