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]
...

##</code><code>##

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

...
$Axcord->[$counter]
...