Well, in an attempt to redeem myself, here's an oversimplified (and crude)fix:

@a = ('this', 'that', 'the other', 'the last thing');

$lastone=pop(@a);

$tmpstring=join(',',@a);

$string = "I know about $tmpstring, and $lastone.";

print $string;
[download]