open my $inputdatafile, '<', $inputfile or die ...