Perl interface to calculate m-difference between two objects