# add the $cnn to an array to keep order
push @good, $cnn if $lines{$cnn} ne '1';
# add a key to a hash so you don't have to
# loop through the array each time
$lines{$cnn} = 1;