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;