##
use XML::Simple;
use Text::Iconv;
my $iconv;
my $xmlconf = XMLin("players.xml");
my $players = $iconv->convert($xmlconf->{Players});
my $player = 'J';
my @players_list = \$players;
foreach my $play (@players_list)
{
if($play eq $player)
{
print "Player found";
last;
}
}