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