my ($datafile, $chomp) = @_;