Select Code to Download

use strict;
use warnings;
...
   [ \%sortOrder, $raSortedQueries ],
   [ qw{ *sortOrder raSortedQueries } ]
   );

%sortOrder = (
               '4' => 3,
...
                       'key' => 2
                     }
                   ];