some_number some_number some_number some_manufacturer_ID ##

##

#!/bin/perl
use XML::Twig;
%Items=();

my $twig=XML::Twig->new(
    twig_handlers => 
      {populate=> sub { while (<>)
{ if (%Items !~ m/" sub { $_[0]->purge;     }, # free memory
      },
                       );
   $twig->parsefile( '500syncItemMaster.xml'); # build it
   $twig->purge;                  # clear end of document from memory
 print %Items;                 # output the twig