use Spreadsheet::XLSX; use Excel::Writer::XLSX; (@file_list) = glob "*xlsx"; my $workbook = Excel::Writer::XLSX->new('Target.xlsx'); $worksheet = $workbook->add_worksheet(); my $row_count = 0; foreach my $setoffiles (@file_list) { my $excel = Spreadsheet::XLSX->new("$setoffiles"); foreach my $sheet ( @{ $excel->{Worksheet} } ) { $sheet->{MaxRow} ||= $sheet->{MinRow}; $sheet->{MaxCol} ||= $sheet->{MinCol}; foreach my $row ( $sheet->{MinRow} .. $sheet->{MaxRow} ) { foreach my $col ( $sheet->{MinCol} .. $sheet->{MaxCol} ) { my $cell = $sheet->{Cells}[$row][$col]; if ($cell) { $worksheet->write( $row_count, $col, $cell->{Val} ); $row_count++; } } } } }