Readonly my $eq => [ 2 * $vars->{Y}, -2 * $vars->{X} * $vars->{Y} ];
### instead of
Readonly my $eq => [ 2 * Y, -2 * X * Y ];