Select Code to Download

   my %d = (    '1'     =>      "expire_date",
                '2'     =>      "submit_date",  );
...
                -values =>      \@a,            
                -labels =>      \%d );

   my %d = (    '1'     =>      "expire_date",
                '2'     =>      "submit_date",  );
...
                -values =>      \sort(keys(%d)),            
                -labels =>      \%d );