use Spreadsheet::Read;
my %pointData{D.xls} = ReadData(fileD.xls)

my %coordinates =
(
x1 => $pointData(D.xls)->[1]->{A1},
y1 => $pointData(D.xls)->[1]->{A2},
z1 => $pointData(D.xls)->[1]->{A3},
);