open ($testdataset, "datasetnew.txt") or die "Cannot open file";
   @testdataset =  <$testdataset>;
   close ($testdataset);

   @testdataset = grep { $_ ne '' } @testdataset;
   @testdataset = grep /\S/, @testdataset;
  
   foreach $dataline (@testdataset) {