Reading the files is easily done with Spreadsheet::ParseExcel resp. Spreadsheet::Read.

Comparing the two files is most likely best done through Algorithm::Diff, at least if you can put your data to a row-wise representation, like my $row= join "\t", @columns;.

The rest would be basic output, maybe through Spreadsheet::WriteExcel.