Select Code to Download

my @hashNames = qw(testA testB testC);

my $i = 0;
...
{
  %{$_}{'key'} = $i;
}

%testA = (
  key => '0'
);