Select Code to Download

use strict;
use warnings;
...
   for @data;

print Data::Dumper->Dumpxs( [ $rhBySex ], [ qw{ rhBySex } ] );

$rhBySex = {
             'Female' => [
...
                         }
                       ]
           };