nicht angemeldet
Moin!
Trotzdem die frage, gibt es eine effizientere???
Effizienter ist es wohl kaum, aber
@dopp = grep($saw{$_}>1, keys(%saw));
sollte auch ok sein. Man darf sich ueberlegen, ob man vor das keys noch ein sort schreiben will. Nachteil dabei ist, dass die tatsaechlichen Anzahlen der Mehrfachvorkommen nicht uebernommen werden, allerdings kann man die ja noch in %saw nachschauen (die Werte aus @dopp als Key verwenden).
So long