Select Code to Download

my $xmlconfig =
{
...
        }
    }
};

while(my $batch_aid = $xmlconfig->{order}->{'item-info'}->{batch}->{'b
+atch-member'}->{aid}){
  my $batch_pii = $xmlconfig->{order}->{'item-info'}->{batch}->{'batch
+-member'}->{$i}->{'pii'};
...
  $orderin{subitem}='Yes';

}