for $d ($values)
        {
         for $x (0..100)
         {
          if (!defined(${$d}[$x]) )
          { last;}
          #${$d}[$x] = "" if (${$d}[$x] eq "UNKNOWN");
          splice (@$values, $x, 1)  if (${$d}[$x] eq "UNKNOWN");
         
         }
        }