i suggest the arrayref with constants X,Y,Z

use constant { X=>0, Y=>1, Z=>2};
[download]

Then you can access the distance with:

$helix1{A}[X];
[download]