# After getting the XML file in @xml, how can I use it on the next line.
my @xml = $zip->membersMatching( '.*\.XML' );
# here is the issue!
my $xml_file = XML::XPath->new(ioref => @xml);

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use Archive::Zip;
use XML::XPath;

my @numberstocheck = qw(112334 999888 222333 999888 0008877 003344 1222334 00009 004443 999888);

my $zipfile = "test.zip";
my $zip = Archive::Zip->new( $zipfile ) || die;

my @xml = $zip->membersMatching( '.*\.XML' );

my $xmlfile = XML::XPath->new(ioref => @xml);

foreach my $row ($xmlfile->findnodes('/alllist')) 
   {
      my $nodeset = $row->find('phnumbers');
      foreach my $node ( $nodeset->get_nodelist ) 
       {
         my $numbers = $node->find( 'numbers')->string_value;
         print "\n 19 - $numbers \n";
         foreach (@numberstocheck) 
	                { 
	                   if (/^($numbers)/g) 
	                    { 
	                       print "$numbers - ".$_."\n";
	                   } 
              } 
      }

   }