What did you try? What problems did you encounter? Does Perl return any errors?

Maybe you want to use Algorithm::Diff?