use strict;
use XML::Simple;

local $/;

my $xml = XMLin(<DATA>, forcearray => 1);

foreach (@{$xml->{'user'}}) {
	print "the user is $_\n";
}

__DATA__
<users>
<user>jeffa</user>
<user>foo</user>
<user>bar</user>
</users>