sub separate_data {
      @a = split / /, $data[$a];
      }