use XML::Smart ;
  
  my $xml = new XML::Smart('available_batchnyyn.xml');
  
  my @avaliables = @{ $xml->{AvailableBatch}{Available} } ;
  
  foreach my $avaliables_i ( @avaliables ) {
    my $part = $avaliables_i->{Part} ;
    my $qty  = $avaliables_i->{Qty} ;
    print "Part: $part ; Qty: $qty\n" ;
  }