1. Vor der ersten Ausgabe musst Du immer einen Header ausgeben. Mehr zu 500er: in diesem Artikel

2. Perl macht nix random, sondern genau das was der Programmierer sagt...

Wenn Du das XML in verschiedene Zeilen aufteilst, dann kann Perl nicht wissen, dass es bei dem grep alles als eine Zeile behandeln soll.

Wenn Du mal etwas mehr posten würdest könnte man Dir besser helfen.

Z.B. etwas mehr Code, etwas mehr vom XML,usw.