One problem I see is you are pushing $cnn onto array @dupes, then treating it as a hash when checking for duplicates. You should probably $dupes{$cnn}++ instead of push @dupes, $cnn.

YuckFoo

Originally posted as a Categorized Answer.