$data = readRaw(table name);

sub readRaw {
	my ($rawfilename) = @_;

	my $dbCommand = 'select '.join ',', @rawFields;
	$dbCommand .= qq^ from $rawfilename;^;

	$dbHandle=$db->prepare($dbCommand);
	$dbHandle->execute();

	my $data = $dbHandle->fetchall_arrayref();
	$dbHandle->finish;

	foreach my $rows (@$data) {
		    my %GenericData;
		    @GenericData{ @rawFields } = @$rows; # NOTE added

		    push @rawRecords, \%GenericData;
	    }

	 return \@rawRecords;
}
##</code><code>##

sub makeJSONToExport {
	my ($arrayref) = @_;

	my $typehint_raw =  { age    	=> JSON_TYPE_INT,
	        lastname  	=> JSON_TYPE_STRING,
	        firstname      	=> JSON_TYPE_STRING};


	my $typehint_raws = [ ($typehint_raw) x  @$arrayref];
	my $json = encode_json($arrayref, $typehint_raws);
	return $json;
}