Select Code to Download

use 5.026;
use warnings;
...
   ->new( [ \ %posns ], [ qw{ *posns } ] )
   ->Sortkeys( $rcKeySorter )
   ->Dumpxs();

%posns = (
           'a' => [
...
                     6
                   ]
         );