my %d = (    '1'     =>      "expire_date",
                '2'     =>      "submit_date",  );
   my $date_dd_str = CGI::popup_menu(
                -name   =>      'date_name',
                -values =>      \sort(keys(%d)),            
                -labels =>      \%d );