perl -we'sub foo{66}; die @{ foo }'

##</code><code>##

perl -we'die shift =>1' 1
perl -we'die shift() =>1' 1