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