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

##</code><code>##

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