Select Code to Download

$ perl -MDevel::Peek -e'Dump(undef); Dump(my $x);'
SV = NULL(0x0) at 0x8168784
...
SV = NULL(0x0) at 0x817bc18
  REFCNT = 1
  FLAGS = (PADMY)

alias my @array = my ($x, $y, $z);

sub map_scalars_onto_array(\@@) {
   my $array = shift;
...
}

map_scalars_onto_array my @local_array, my ($x, $y, $z);

$ perl -E'$#a=5; for (1..2) { say exists($a[3])?1:0; \$a[3]; }'
0
1