Select Code to Download

use strict;
use warnings;
...
        sprintf ("%04d/%02d/%02d %02d:%02d:00", @entry{@dateFields}),
        \%entry;
}

2000/01/01 04:44:00
   burgers 5
...
   burgers 2
   fries   4
   sodas   7