open PWD,"</etc/passwd" or die "Cannot open: $!";
while (<PWD>) {
   my ($name,$id) = (split /:/)[0,4];
   print "$name,$id\n";
}
close PWD;