my @hashNames = qw(testA testB testC);

my $i = 0;
foreach (@hashNames)
{
  %{$_}{'key'} = $i;
}


##</code><code>##

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