local (*Axcoord, *Aycoord, *Azcoord, *Bxcoord, *Bycoord, *Bzcoord, *res_to_atom, *natres, $nseg, *beginning, *ending) = @_;

our @Axcord;
our @Aycord;
our @Azcord;
our @Bxcord;
our @Bycord;
our @Bzcord;

...
$Axcord[$counter]
...