perl Data-Compare