my %real_hash = ( 'response' => {'result' => $results} );

# Passing the reference of a real hash
$r->print( \%real_hash );