Use of uninitialized value in concatenation (.) or string at C:\Perl\Orange\pop_db.pl line 18, <FILE> line 46062.