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

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

##</code><code>##

 my %gen_data;

while( my $gen_data_str1 = $q->dequeue )
{                
    %gen_data = %{ eval $gen_data_str1 };
};