foreach(sort keys %links) {
        if ($uri eq $links{$_}[0]) {
                print "<STRONG><A HREF=\"$links{$_}[0]\">$links{$_}[1]</A></STRONG>";
        }
        else {
                print "<A HREF=\"$links{$_}[0]\">$links{$_}[1]</A>";
        }
        print " | ";
}