perl -e "$x = []; print qq{$x}+0"