The immediate problem is this line:

foreach my $readLine (PASSWD) {
[download]

Perhaps you meant something like <PASSWD>?

However, you should never do this:

truncate (PASSWD, 0);
[download]

with an important file like passwd! What you do is write a new file that has the changes you want and then mv the new file over the old file.