while($Data->FetchRow())
{
   %Data = $Data->DataHash();
    
   print "<tr>";
    
   foreach $key( keys( %Data )) {
      print qq{
             <td bgcolor = #9999CC>
                <a href="http://some_new_site/some_script.cgi?color=$Data{'color'}">$Data{'color'}</a>
             </td>
      } ### end print qq
   }