Select Code to Download

@data = (
        {
...
             sex => 'Male',
        }
);

use strict;
use warnings;
...

use Data::Dumper;
print Dumper $data2;

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