%state_capitals= ('AA', 'aa', 'BB','bb','CC','cc','DD','dd','EE','ee');
@states = keys %state_capitals;
@capitals = values %state_capitals;
$size = @states;
%capitals_state= ();
for ($x=0;$x<$size;$x=$x+1){
#print "$x\n";
#print "$states[$x] \t $capitals[$x]\n";
$capitals_state{@capitals[$x] } = @states[$x];
}
print "$state_capitals{'AA'}\n";
print "$capitals_state{'aa'}\n";