while (my @fields = (getpwent)[6,7]) {
  print map "$_\n", @fields, ("-" x 80);
}