One thing that stands out to me is:
if ($dbm1{"$accountAD"} && $dbm1{"$accountAD"} =~ /^$accountAD$/) {
The hash key, $accountAD, is being compared against the value of the hash, $dbm1{"$accountAD"}. Shouldn't $accountID be used somewhere in here?