my (@out,$ref) = undef;

##</code><code>##

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