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