while(($key, $msg) = each %$record)