Select Code to Download

use strict;
use warnings;
...
    print " and a $objects[-1]" if @objects > 1;
    print ".\n";
}

I can eat a apple and a banana.
I can play a football and a tennis.
I can read a book, novel and a magazine.