foreach my $line (@file) {
   print $line;
}