my @data = ( [ qw ( $date ) ], 
             [ qw ( $aaa_partners ) ], 
             [ qw ( $aaa_arf ) ],
);