SV * construct_p_matrix ( SDL_Surface *surface )
{
    ...
    return newRV_noinc(matrix);
}