perl -we'print join ",", @{[undef]}'
Use of uninitialized value in join or string at -e line 1.