@filesout = qw(a b c);
  print table({-border=>1},Tr([
      th(['Document']),
      foreach(@filesout){
        td([a({-href=>$_},$_)])
      }
    ])
  );