foreach my $uitem (sort @uphosts) { # sort is for cleanliness...
    print li("$uitem\n"),br;
}