There's a couple of solutions.

• Rewrite all your foreach as "map", which is a "process this input to get that output" operator, exactly what you need here:

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

• Use the optional "start/end tag" generators:

  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;
  [download]

Your choice.

-- Randal L. Schwartz, Perl hacker