This makes it easy to write loops that terminate when a null list is 
returned:
 
   1. while ( ($home, $user) = (getpwent)[7,0]) {
   2. printf "%-8s %s\n", $user, $home;
   3. }