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

$lastone=pop(@a);

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

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

print $string;