#! /usr/bin/perl 
%sec=();
while(<>)
{
  my ($sec,$count)=split("\t");
  chomp($count);
  $sec{$sec}=$count;
}
my @sections=qw(
                Apps/Databases
                Apps/Editors
                Apps/Education
                Apps/Emulators
                Apps/Graphics
                Apps/Hamradio
                Apps/Math
                Apps/Net
                Apps/Programming
                Apps/Technical
                Apps/Tools
                Apps/Text
                Apps/Science
                Apps/Shells
                Apps/Sound
                Apps/Viewers
                Apps/System
                Games/Adventure
                Games/Arcade
                Games/Board
                Games/Card
                Games/Puzzles
                Games/Sports
                Games/Strategy
                Games/Simulation
                Games/Tetris-like
                Games/Toys
                Help
                Screen/Lock
                Screen/Save
                Screen/Root-window
                WindowManagers
                WindowManagers/Modules
                XShells
               );
delete $sec{"\"$_\""} for (@sections);
print join("\n",map {"$_\t$sec{$_}"} sort keys %sec);
