Clump Finding Problem Solved with Perl