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

##</code><code>##

while $filename1 (<LIST>) {
    # removing trailing newline on $filename1:
    chomp $filename1;
    ...
}