foreach my $file (@files) {
    print $list->p(
            $list->a({-href=>$file},
            $file)
            );