for ($i=1;$i<=$max;$i++){ 
       
         $pwd = &randomPwd($nmbchars);

         print DB qq("$dept$w$i","7 days","$pwd",,,,,,\n);

         print newDB qq("$dept$w$i"\t>\t"$pwd"\n);

     }