Заключите путь к файлу .xlsx
, используя двойные кавычки внутри функции ReadData.
my $book = ReadData("$lBASEPATH/macro/$gProj/TCO_Excel_Export/TCO_Data_201931316467.xlsx");
say 'A1: ' . $book->[1]{A1};
print $book;
Невозможно выполнить интерполяцию с одинарными кавычками.