... 

while ($i < $right_panel) {
     
    $matrix_summary[$i]=~s/\n/<br>/g;
     
    #my $htm_elem = qq(['strong'], "$matrix_title[$i]",['p'],"$matrix_summary[$i]",['br'],['br'],['a', {href=>"art.cgi?art=$matrix_id[$i]"}, "Read on ... ", ],['br'],['hr'],['br']);
    my $li=HTML::Element->new('~literal','text', qq(<strong> $matrix_title[$i]</strong><p>$matrix_summary[$i]</p><br><a href="art.cgi?art=$matrix_id[$i]">Read on ...</a><br><hr><br>)
                              
                              );
        
        $ele->push_content($li);        
    $i++;
    
    }