use strict;
use warnings;
use constant {
  FOO => 0,
  BAR => 1,
  BAZ => 2
};

$var = BAZ;

my @array;
say $array[FOO];  # OK
say $array[BAH];  # Bareword "BAH" not allowed while "strict subs" in use
say $array[$var]; # OK