@thingsicouldknow = ('this','that','the other','the last thing');
@iknowthat = (0,1,3); #this, that, and last thing

# now print the things I know...
@thingsiknow = @thingsicouldknow[@iknowthat];
print "I know about "
print join(', ',@thingsiknow[0..@thingsiknow-2]);
print ", and", @thingsiknow[-1] if @thingsiknow > 1;
print ".\n".