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