while (my $PWS = <USERLIST>)) {
  chomp($PWS);
  ...