$ perl -Mstrict -Mwarnings -E '
    use Time::HiRes;
    use constant LABEL_ARRAY => qw(Title Section Subsection Class Category Degree Attempt CountOfCounts);
    my @label_array = qw(Title Section Subsection Class Category Degree Attempt CountOfCounts);
    my $x;
    my $t1 = Time::HiRes::time;
    $x = (LABEL_ARRAY)[0] for 1 .. 1_000_000;
    my $t2 = Time::HiRes::time;
    say $t2 - $t1;
    my $t3 = Time::HiRes::time;
    $x = (@label_array)[0] for 1 .. 1_000_000;
    my $t4 = Time::HiRes::time;
    say $t4 - $t3;
'
2.28321886062622
0.133409023284912