Select Code to Download

my @hashNames = qw(testA testB testC);
my $i = 0;
my %hoh;
...
}
# later
print $hoh{testA}->{key};