print join "\n| ", 
      map { a( {-href => "/$sections{$_}"}, "$_ HOME" ) } 
      sort keys %sections;