sub get_location{ my $self=shift; return [$self->[X],$self->[Y]]; } sub get_X{ my $self=shift; return $self->get_location->[X]; } sub get_Y{ my $self=shift; return $self->get_location->[Y]; }