{
    ...
    sub new {
        my ($class, $cords) = @_;
        ...
    }
    ...
}

my $point = PointX->new({x=>3, y=>20});