Can you show the source for fold_sort()? It's not clear to me why/who this line works, since the sort block isn't dependent upon $a or $b at all (in any obvious way)..

    @$array = sort {fold_sort($campaign_grouped,$date_grouped)} @$arra
+y;
[download]

Can you also provide some data samples? Input, actual output, and desired output?