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