Select Code to Download

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

use strict;
use warnings;
...
say $hash{+FOO};  # OK
say $hash{+BAH};  # Bareword "BAH" not allowed while "strict subs" in 
+use
say $hash{+shift} # Bonus