##
use strict;
use warnings;
use XML::Simple;
use Data::Dumper;
# create object
my $xml_data = new XML::Simple (KeyAttr=>[]);
# read XML file
my $file_path='c:\catalog1';
my $data = $xml_data->XMLin($file_path);
# dereference hash reference
# access array
foreach my $e (@{$data->{httpSample}})
{
my @values = $e->{lt};
print "Lt_Value: ", @values, "\n";
print "\n";
}