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