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

##</code><code>##

my @la=map { a( {-href => "/$sections{$_}"}, "$_ HOME" ) } sort keys %sections;  

##</code><code>##

$\ = "\n";