Select Code to Download

    $Data::Dumper::Varname = "gen_data_str";
    $gen_data_str1 = Dumper($ref_gen_data);

    $q->enqueue( $gen_data_str1 );
    $q->enqueue( undef );

 my %gen_data;

...
{                
    %gen_data = %{ eval $gen_data_str1 };
};