my $new_book = $Excel->Workbooks->Open("c:\\work\\USA.xls"); my $new_sheet = $new_book->Worksheets("Sheet1"); my $array = $new_sheet->Range("A1:AQ1")->{'Value'}; my $counter = 0; foreach my $ref_array (@$array) { my $col =0; my $row =2; foreach my $col_heads (@$ref_array) { if ($col_heads eq "") { $counter++; next; } print ++$counter. ") $col_heads : ".$new_sheet->Cells($row,$counter)->{'Value'}."\n"; } $row++; } #### Win32::OLE(0.1702) error 0x800a03ec in METHOD/PROPERTYGET "Cells" at C:\Perl\EDS\TempTool.pl line 111 Can't use an undefined value as a HASH reference at C:\Perl\ABN AMROS\TempTool.pl line 111.