use strict;
use warnings;
use constant {
  FOO => "foo",
  BAR => "bar",
  BAZ => "baz"
};
my %hash;
say $hash{+FOO};  # OK
say $hash{+BAH};  # Bareword "BAH" not allowed while "strict subs" in use
say $hash{+shift} # Bonus