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

##</code><code>##

perl -e "my $test = join ', ', ('A', 'B', 'C');$test =~ s/,([^,]+?)$/ and$1/; print $test;"