Assuming hash %Data has key 'color', how about

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=$D
+ata{'color'}">$Data{'color'}</a>
             </td>
      } ### end print qq
   }
[download]

When printing html in perl, I like to use either here-documents or qq - if you don't then you have to worry about using quotes *in* your html.

Beware - this is completely untested, but hopefully it's close. HTH.