my $HTMLCheck = $db->select("select HTMLCheck from Contact where ContactID=$ContactID")[1]->{HTMLCheck};

##</code><code>##

my $HTMLCheck = {$db->select("select HTMLCheck from Contact where ContactID=$ContactID")}[1]->{HTMLCheck};