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

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