for ($i=1;$i<=$max;$i++){ 
       
         $pwd = &randomPwd($nmbchars);
         select (DB);
         print qq("$dept$w$i","7 days","$pwd",,,,,,\n);

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

     }