my %links = ( "1" => ['/channels.shtml', 'channels'],
              "2" => ['/mp3s/', 'mp3s'],
              "3" => ['/fortune.shtml', 'fortune']
            );

##</code><code>##

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 " | ";
}