my @array=%CONFIG;
for my $key (@array)
{
  ...
}