my @la;
foreach my $s (sort keys(%sections)){
  push @la,a({-href => "/$sections{$s}"}, "$s HOME");
}
print join(" |",@la);