die identischen elemente müssen mit diesem code an der gleichen stelle vorkommen.
ich habe den code genau so übernommen und mit folgenden werten ausgeführt:

ausgabe: foo baz far

sieht für mich korrekt aus.

deswegen steht in unserer FAQ (siehe signatur): immer zu dem code auch beispieleingabe und ausgabe posten.

wenn es dir nicht darauf ankommt, wo die gleichen elemente stehen, ist der code noch einfacher, ein paar ansätze findest du in perldoc -q duplicate