Select Code to Download

$VAR1 = {
          'DATE' => '2013-04-25',
...
$VAR2 = {
          'DOC' => 'EMAIL'
        };

push @$data, {DOC => 'EMAIL'};

$VAR1 = {
          'DATE' => '2013-04-25',
...
          'ACC' => '33456790'
          'DOC' => 'EMAIL'
        };