%ABCDev = qw /A 1 B 2 C 3/;

##</code><code>##

@prods=(\%ABCDev,\%DEFDev,\%GHIDev);
for($i=0;$i<=$#prods;$i++)
{
  @prodkeys = keys %{$prods[$i]};
  print "@prodKeys\n";
}