my @hex_numbers_row = ("ff","cc","99","66","33","00");         

foreach $block (@hex_numbers_row) {                                                                                         
        foreach $col (@hex_numbers_row) {                                                                                       
            foreach $row (@hex_numbers_row) {                                                                                   
                my $hex_colour = $block.$row.$col;                                                                              
                my $string_to_send =  '<a',
                'href="/ckoster-cgi/test_colour.pl?',
'action=colour&colour='.$hex_colour.'">'."What goes here?".'</a>';                                                                                                                   
                print $q->th({-BGCOLOR=>"#$hex_colour",                                                                         
                              -width=>"1"},$string_to_send),"\n";                                                               
                                   }
}}