use CGI qw(:all *table *Tr *td);
print start_table, start_Tr, start_td;
for (sort keys %urlhash) {
  print a({href => $urlhash{$_}}, $_), br;
}
print end_td, end_Tr, end_table;