Select Code to Download

use warnings;
use strict;
use Data::Dump qw(dump);
...
$newD[0] = "A";
$newD[1] = "B";
${$newD[2]} = "C";