open my $input1FH, q{<}, $FILENAME1
   or die qq{open: < $FILENAME1: $!\n};