$ perl -wle 'my @foo = (undef) or die "is nicht"'
$ perl -wle 'my @foo = () or die "is nicht"'
is nicht at -e line 1.