my $some_times = '';
my @sec_keys = sort keys(%sections);
foreach my $s (@sec_keys){
        print $some_times, a({-href => "/$sections{$s}"}, "$s HOME");
        $some_times = " |" if (!$some_times);
}