for (@$STF1){
    print OUTPUT "<li>$_->[0]</li>" .
                 qq{<a href="$_->[1]$STF3_Tables">$_->[2]</a><br />\n};
}