Select Code to Download

$ 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