##
use XML::XPath;
my $file = 'available_batchnyyn.xml';
my $xp = XML::XPath->new(filename=>$file);
my $nodeset = $xp->find('//Sku');
my @zipcodes; # Where we'll put our results
if (my @nodelist = $nodeset->get_nodelist) {
@zipcodes = map($_->string_value, @nodelist);
@zipcodes = sort(@zipcodes);
local $" = "\n";
print "I found these zipcodes:\n@zipcodes\n";
} else {
print "The file $file didn't have any 'zip' elements in it!\n";
}