print table(Tr([ td(
        join "<br>\n",
        map { a({href => $urlhash{$_}}, $_) }
        keys %urlhash
    ) ]));