my @clips = (
    { cx => $X * 0.500, cy => $Y * 0.4,   rx2 => ( $X * 0.295 )**2, ry2 => ( $Y * 0.40 )**2 },
    { cx => $X * 0.500, cy => $Y * 0.6,   rx2 => ( $X * 0.390 )**2, ry2 => ( $Y * 0.34 )**2 },
    { cx => $X * 0.428, cy => $Y * 0.748, rx2 => ( $X * 0.067 )**2, ry2 => ( $Y * 0.038)**2 },
    ...
};