in reply to Registration Error
What type of error is being experienced?
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?
In Section
Seekers of Perl Wisdom