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