Select Code to Download

#!/usr/local/bin/perl -l
#
...
   keys %sections;

print for @sortedKeys;

DMA
BKS
...
FST
MRA
MSU

my %specials = (
   DMA => 2,
...

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