#!/usr/local/bin/perl -l
#
use strict;
use warnings;

my %sections = (
   DMA  => q{dma},
   FST  => q{dma/fst},
   MRA  => q{dma/mra},
   BKS  => q{bks},
   MSU  => q{dma/msu},
   FMA  => q{dma/fma},
   FOMC => q{dma/FOMC});

my $thisKeyFirst = q{DMA};

my @sortedKeys =
   map  { $_->[0] }
   sort { $b->[1] <=> $a->[1] || $a->[0] cmp $b->[0] }
   map  { [$_, $_ eq $thisKeyFirst] }
   keys %sections;

print for @sortedKeys;

##</code><code>##

DMA
BKS
FMA
FOMC
FST
MRA
MSU

##</code><code>##

my %specials = (
   DMA => 2,
   MSU => 1);

...

   map  { [$_, exists $specials{$_} ? $specials{$_} : 0] }
   keys %sections;