fixxed y0 ass perl page