I like how you called it "PERL", cause it definitely doesn't look like "Perl" to me. (The problems include 11 levels of indents, continual repetition of expressions like "$dbs{$db}->{tbls}->{$table}->{indx}", and a complete lack of variable localization)