PERL script to compare two databases. V1