Your "database" code has all the looks of a badly executed "cut-and-paste" job. It might have worked in another script, but it is obviously broken in this script.

Unless you have predeclared (using "my") all variables in this script somewhere else, Perl will keep complaining since you have asked it to do so by using "use strict;".