Zeilenumbruch Probleme mit Array

[Tux]

Ich lese über einen Systemaufruf ein Text File ein

@array = 'cat textfile'; #Das Einlesen in dieser Form muss leider so sein

In dem Textfile steht in jeder Zeile ein string:

user1
user2
user3
user4

Nun will ich jeden String in dem Array um einen weiteren String ergänzen und in ein neues Textfile schreiben.

open (DATEI, ">file") or die $!;
      foreach (@array){
      print DATEI 'pass' .@array[$count] . 'pass';
      $count++;
      }
      close (DATEI);

Die neue Textdatei sollte nun folgenden Inhalt besitzen:

passuser1pass
passuser2pass
passuser3pass
passuser4pass

Leider sieht sie aber so aus:

passuser1
pass
passuser2
pass
passuser3
pass
passuser4
pass

Ich bin für jeden Lösungsvorschlag dankbar