perl -e '$foo += []; print $foo'