foreach (sort @l_istrecht){
    if ($_ ne ""){
           my @l_arecht = split /:/,$_;
           my $rechtlink = $l_arecht[0];
           my $a_taetigkeit = $l_arecht[1] < 2 ? "ansehn" : "bearbeiten";
    $anz_istrecht.=<<EOF;
    <tr><td align=center class=klein>
    <b>$rechtlink</b><br>
    $a_taetigkeit<br>&nbsp;
    </td></tr>
EOF
           }
 }