foreach my $file (){ open (PASSWD,"$file");