When printing try:

foreach $line (@file) {
  print $line."\n";
}
[download]

Alternatively, you could change Mr. Muskrat's code as follows:

my @file;
while (<$file>) {
  push(@file, "$_\n");
}
[download]