Zeilenumbruch Probleme mit Array

[Tux]

Nun will ich jeden String in dem Array um einen weiteren String ergänzen und in ein neues Textfile schreiben.
versuchs mal so:
open (DATEI, ">file") or die $!;
      foreach (@array){
@array[$count] =~ s/\n//;
      print DATEI 'pass' .@array[$count] . "pass\n";
      $count++;
      }
      close (DATEI);

Ich habs gerade damit versucht, aber leider funktioniert es nicht