package Point;
use overload '==' => sub {
    return ($_[0]->{X} == $_[1]->{X} && $_[0]->{Y} == $_[1]->{Y});
};