Select Code to Download

use strict;
use warnings;
...
}

print Data::Dumper->Dumpxs( [ \ %sortedByRank ], [ qw{ *sortedByRank }
+ ] );

%sortedByRank = (
                  '191' => [
...
                             }
                           ]
                );

       map  { { $_ => { %{ $rankBased{ $key }->{ $_ } } } } }