> perl -w -Mstrict -e"my%f;++@f{(1,2)};die'ack'if foo eq 'bar'"
Bareword "foo" not allowed while "strict subs" in use at -e line 1.
Execution of -e aborted due to compilation errors.

> perl -w -Mstrict -e"my%f;++@f{qw/1 2/};die'ack'if foo eq 'bar'"
Bareword "foo" not allowed while "strict subs" in use at -e line 1.
Execution of -e aborted due to compilation errors.

> perl -w -Mstrict -e"my%f;++@f{1..2};die'ack'if foo eq 'bar'"

>