sub generate_id {
  do { $accountID = join '', map { $chars[ rand @chars ] } 1..17; } 
  while grep {$_ eq $ID} my @used;
  print $ID;