# if ($dbm1{"$accountAD"} # && $dbm1{"$accountID"} =~ /^$accountAD$/) { # key values reversed if ($dbm1{"$accountAD"} && $dbm1{"$accountAD"} =~ /^$accountID$/) { # corrected #### # debug sub showdata { my ($head,$data) = @_; print qq(\n); foreach (sort keys %$data){ print qq(\n); } print q(
key $head
$_ $$data{$_}
); } showdata("Unverified",\%dbm1); showdata("Verified",\%dbm2); ##
## # $dbm1{$form{'usermail'}} = "$accountID"; $dbm1{"$accountID"} = $form{'usermail'};