perl -e "$x[0]=[0];map{undef $_}(@x);print 'still defined' if defined @x;"