Oops!
Habe mit Entsetzen festgestellt, dass meine Lösung für einige Eingaben kein Ergebnis liefert und möchte hier die Korrektur nachschieben:
map { print if ( $sums{$_}++ == 1 ) } @{$res[$min]};
ersetzen durch:
map { print if ( ! $sums{$_}++ ) } @{$res[$min]};
Gruss, Doc