print $cgi->table(
   $cgi->Tr( map { 
      $cgi->td( [ $_, @{$sites{$_}} ] ) 
   } keys %sites ) # Tr
); #table