open my $inputFile1, '<', $input or die " Cannot open file $input: $!";