package Location; use 5.008001; use strict; use vars '$AUTOLOAD'; use warnings; use Carp; use UNIVERSAL qw/ isa /; use integer; #we use integer coordinates use constant nl=>"\n"; use constant X=>0; # these are the array fields use constant Y=>1;