Help for this page

Select Code to Download

Select or download this
```
%ABCDev = qw /A 1 B 2 C 3/;
```

Select or download this

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