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


##</code><code>##

 
$dbm1{$form{'usermail'}} = "$ID";