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