Select Code to Download

# hash_key_cmp

...
print 'Not in CVS:    ', "@not_in_cvs", "\n";
print 'Valid in both: ', "@valid_in_both", "\n";
print 'Bad in both:   ', "@bad_in_both", "\n";

[ ~/tmp ] $ perl hash_key_cmp
Not in SQL:    c k
...
Valid in both: b d e i j l
Bad in both:   f g h
[ ~/tmp ] $

map { exists($CVS{substr $_, $prefix_len}) || push(@not_in_cvs, $_) } 
+keys %SQL;