$lines{$ccn}++; if($lines{$ccn} == 2){ push @dupes, $ccn;