Working on find_common.pl; still not complete