for my $i (1..$max) {
    ...
};

##</code><code>##

    print DB qq("$dept$w$i, ..."\n);
    print newDB qq("$dept$w$i, ..."\n);