use strict;
use warnings;
use CGI qw/:all *table'/;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
...
my %sections=(" DMA"=>'dma',FST=>'dma/fst',MRA=>'dma/mra',BKS=>'bks',MSU=>'dma/msu',FMA=>'dma/fma',FOMC=>'dma/FOMC');
...
print "<h3 align='center'>";
foreach my $s (sort keys(%sections)){
  print a({-href => "/$sections{$s}"}, "$s HOME")," |";
}
print "</h3>";
...