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

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

##</code><code>##

   open (my $testdataset, '<', "datasetnew.txt")
      or die "Cannot open input file: $!\n";

   while (my $dataline = <$testdataset>) {
      next if $dataline =~ /^\s*$/;