Select Code to Download

use constant {
STRAIGHT_LINE_ID => 1,
PRORATED_ID      => 2,
CBP_CUSTOM_ID    => 3};

use constant TICKET_FIELDS => qw(ticket_id
  date_modified
  date_created
);
my %ticket_fields = map {$_=>1}  TICKET_FIELDS;