# if ($dbm1{"$accountAD"} 
#  && $dbm1{"$accountID"} =~ /^$accountAD$/) { # key values reversed
if ($dbm1{"$accountAD"} 
  && $dbm1{"$accountAD"} =~ /^$accountID$/) { # corrected

##</code><code>##


# debug
sub showdata {
  my ($head,$data) = @_;
  print qq(<table border=1><tr><td> key </td><td> $head </td></tr>\n);
  foreach (sort keys %$data){
    print qq(<tr><td> $_ </td><td> $$data{$_} </td></tr>\n);
  }
  print q(</table>);
}

showdata("Unverified",\%dbm1);
showdata("Verified",\%dbm2);
##</code><code>##

# $dbm1{$form{'usermail'}} = "$accountID";
$dbm1{"$accountID"} = $form{'usermail'};