use constant ARRAY => [ qw(Title Section Subsection Class Category Degree Attempt CountOfCounts) ];;
use enum = qw(Title Section Subsection Class Category Degree Attempt CountOfCounts);;
@array = qw(Title Section Subsection Class Category Degree Attempt CountOfCounts);;

cmpthese -1, {
    var => q[ 
        for(1..1e6){ 
            my $l = $array[ $category ]; 
        } 
    ],
    const => q[ 
        for(1..1e6){ 
           my $l = ARRAY->[ $category ]; 
        } 
    ],
    constenum => q[ 
        for(1..1e6){ 
            my $l = ARRAY->[ Category ]; 
        } 
    ],
};;
            Rate       var     const constenum
var       4.57/s        --       -1%      -18%
const     4.64/s        1%        --      -17%
constenum 5.57/s       22%       20%        --