Thanks, that helped. Also you were right to purge memory. The line below really cleaned it up.

$t->purge ; # add this line to free memory
[download]