Help for this page
use Spreadsheet::Read; my %pointData{D.xls} = ReadData(fileD.xls) ... y1 => $pointData(D.xls)->[1]->{A2}, z1 => $pointData(D.xls)->[1]->{A3}, );