I think the problem is here

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

If it helps, here's code I used to debug your script, paste it in after the ties

# 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);
[download]

poj
update ; Another way to fix it is to change these round

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