http://www.perlmonks.org?node_id=376456


in reply to How's your Perl? (II)

Update:modified slightly.

6:
my @foo = (0); $[ = -1;