Help for this page
for my $i (1..$max) { ... };
print DB qq("$dept$w$i, ..."\n); print newDB qq("$dept$w$i, ..."\n);