print Table(Tr(td(
  map { a({href => $urlhash{$_}}, $_), br } sort keys %urlhash
)));