[
	{
		"info": "\t\t\t\t\t\t  \n<p>John UK Male</p> \n<p>Kieth UK Male</p>"
	},
	{
		"info": "\t\t\t\t\t\t  \n<p>John UK Male</p> \n<p>Kieth UK Male</p>"
	}
]

##</code><code>##

my $sth = $dbh->prepare("SELECT name country gender FROM tbl_U WHERE location = ?");
$sth->execute('UK');
my $result = $sth->fetchall_arrayref();


my $json_msg;
my %hash;
my @updated_data;


foreach my $result (@$result) {
	
my ($name, $country, $gender) = @$result;
$json_msg .= <<HTML;						  
<p>$name $country $gender</p>
HTML
;
	
    %hash = ( "info" => $json_msg);
	push( @updated_data, \%hash );

}

my $json = encode_json \@updated_data;
print $Cgi->header( -type => 'application/json' ),$json;

##</code><code>##

[
	{
		"info": "\t\t\t\t\t\t  \n<p>John UK Male</p>"
	},
	{
		"info": "\t\t\t\t\t\t  \n<p>Kieth UK Male</p>"
	}
]