[
  {
    "id": 1,
    "location": "UAE",
    "name": "jake",
    "gender": "male"
  }
]


##</code><code>##

{
    "id": 1
    "location": "UAE"
    "name": "jake"
    "gender": "male"
  }

##</code><code>##

my %hash;
foreach my $result (@$result) {
	
	my ($id, $location, $name, $gender) = @$result;
	 
    %hash = ( "id" => $id, "location" => $location, "name" => $name, "gender" => $gender);
	push( @$result, \%hash );

}

my $json = encode_json \%hash;
print $CGI->header( -type => 'application/json' ),$json;