Help for this page
for $file (@list) {open INPUT, "$file" or die; @partial = <INPUT>; push @complete, @partial;}
for $file (@list) {open INPUT, "$file" or die; @complete = <INPUT>;}