C:\test>perl -Mstrict -wle
"my $r= undef; my @x= map ++$_,@{$r};print qq[[@$r]\n[@x]]"
[]
[]