my %gen_data;

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