sub mkenglish {
    die 'arg required' if ! @_;

    if ( 1 == scalar @_ ) {
        return @_;
    }
    elsif ( 2 == scalar @_ ) {
        return join ' and ', @_;
    }
    else {
        my $last = pop @_;
        my $list = join ', ', @_;
        return "$list, and $last";
    }
}