(
Code:
 
@files = (f1.txt, f2.txt, f3.txt); foreach $file (@files) { open (FILE, $file) || die Cannot open $file\n; $lines = <FILE>; close FILE; open (FILE, >>out); print FILE $lines; close FILE; }
dose it appndes the first line from all files only and why ?