#!/usr/bin/perl -w
use strict;

use XML::Simple;
  
my $xml = qq|<?xml version="1.0" encoding="utf-8"?>
<NewDataSet>
  <Table>
    <CITY>Provo</CITY>
    <STATE>UT</STATE>
    <ZIP>84601</ZIP>
    <AREA_CODE>801</AREA_CODE>
    <TIME_ZONE>M</TIME_ZONE>
  </Table>
  <Table>
    <CITY>Provo</CITY>
    <STATE>UT</STATE>
    <ZIP>84605</ZIP>
    <AREA_CODE>801</AREA_CODE>
    <TIME_ZONE>M</TIME_ZONE>
  </Table>
  <Table>
    <CITY>Provo</CITY>
    <STATE>SD</STATE>
    <ZIP>57774</ZIP>
    <AREA_CODE>605</AREA_CODE>
    <TIME_ZONE>C</TIME_ZONE>
  </Table>
  <Table>
    <CITY>Provo</CITY>
    <STATE>KY</STATE>
    <ZIP>42267</ZIP>
    <AREA_CODE>502</AREA_CODE>
    <TIME_ZONE>E</TIME_ZONE>
  </Table>
</NewDataSet>|;


my $perl = XMLin($xml);
use Data::Dumper;

my @table = $perl->{Table};
my @newtable = $table[0];
my $count = @newtable;


print Dumper(\@newtable);
print "Count is $count\n";
print "State is $newtable[0][3]{STATE}\n";