Help for this page
%hash = ( "info" => $json_msg); push( @updated_data, \%hash );
foreach my $res (@$result) { my ($name, $country, $gender) = @$res; push @updated_data, {info => "<p>$name $country $gender</p>"}; }