Find the copied subs in perl code