do {
      ...
  } while lc($make_account) ne 'y';