Refactoring to leverage perl's "use constant" as well as changing the logic for specifying which slots to display.
This check in leaves some functionality broken until the refactoring is done.