while(my ($k, $v) = each(%newHotness))
{
   ...check that I have the expected $v per $k
}