Select Code to Download

use Data::Dumper;
use Data::Dump::Streamer;
...
            \\do { my $v = 'V: $ARRAY1->[1]' }
          ];
${${$ARRAY1->[1]}} = $ARRAY1->[1];