foreach my $readLine (PASSWD) {

##</code><code>##

truncate (PASSWD, 0);