>perl -wMstrict -MData::Dump -le
"my (@out,$ref) = undef;
 dd \@out;
"
[undef]