foreach my $readLine (PASSWD) { #### foreach my $readLine () {