sub join_list {
   return "none" if !@_;  # ???
   my $last = pop;
   return $last if !@_;
   return join( ", ", @_ ) . " and " . $last;
}