Now it's written:

#!/usr/bin/perl 
use strict;
use warnings;

my @list = (
    [qw(a)],
    [qw(a b)],
    [qw(a b c)],
);

for (@list){
    print join_english(@$_), $/;

}

sub join_english {
    return $_[0] if @_ < 2;
    my $last = pop @_;
    return join(', ', @_), ' and ' . $last;
}
[download]

I don't know if that's worth a module, if you think so, you could upload it to CPAN as Lingua::List::English or something. I searched for lingua list and found nothing, but maybe I overlooked something.