#!/usr/bin/perl -w
use LWP::Simple;
use Data::Dumper;
use XML::Simple qw(:strict);

my $xml = XML::Simple->new;						
my $hashref = $xml->XMLin('contact.xml',forcearray => 1);

open (XMLEXPORT, ">test.txt");
print XMLEXPORT Dumper($hashref);
close (XMLEXPORT);
						
foreach my $content (keys %$hashref) {
        if ( ref($hashref->{$content}) eq 'ARRAY' and @{$hashref->{$content}} > 0) {
                my @tmp = @{$hashref->{$content}};
          foreach my $value (@tmp) {
                        print $content." => ".$value."\n";
                }
        } else {
          print $content." => ".$hashref->{$content}."\n";
        }
}