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

##</code><code>##

print join br, map li $_, sort @uphosts;