@array = map { join "\t", @{$_} } 
         sort{ParseDate($a->[-1]) cmp ParseDate($b->[-1])}         
         map { [split /\t/, $_] } @array;