Help for this page
$ perl -wE 'for (0 .. 1) { my @x = $_ == 0 ? qw{a b} : qw{c d e}; say +\@x; say @x; }' ARRAY(0x100a1d40) ab ARRAY(0x100a1d40) cde
$ perl -wE 'my %h; for (0 .. 1) { my @x = $_ == 0 ? qw{a b} : qw{c d e +}; $h{$_} = \@x; say \@x; say $h{$_}; say @x; }' ARRAY(0x100a1d10) ... ARRAY(0x10053c88) ARRAY(0x10053c88) cde