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