while (<LIST>)
{
    $filename1 = <LIST>;