$threads[$i] .= "\n<ul type=\"disc\">\n$link\n</ul>\n";

##</code><code>##

    splice @threads, $i, 0,  
        '<ul type=\"disc\">', "$link",'</ul>';