I have the following requirement and the following code doesnt get me anywhere...Please help Sample Code is pasted below followed by the requirement....

%ABCDev=qw/A 1 B 2 C 3/;
%DEFDev=qw/D 4 E 5 F 6/;
%GHIDev=qw/G 7 H 8 I 9/;

@prods=qw/ABC DEF GHI/;

for($i=0;$i<=$#prods;$i++)
{
 $prodDev=$prods[[$i]]."Dev";
 @prodkeys = keys%{$prodDev};
 print "@prodKeys";
}
#Expected Result  of the above is
# First loop it must return 1 2 3
# Second loop it must return 4 5 6
# Third Loop it must return 7 8 9
[download]

update (broquaint): tidied up formatting + added <code> tags