#!/net/perl/5.10.0/bin/perl

use strict;
use warnings;

use YAML;

use XML::Simple;

my $teams = XMLin(
    do { local $/; <DATA> },
    ForceArray => [qw( football_team Player )],
);

print Dump $teams;

foreach my $team ( @{ $teams->{football_team} } ) {
    print "$team->{Name}\n";
    foreach my $player ( @{ $team->{Players}{Player} } ) {
        print "  $player->{ForeName} $player->{LastName}\n";
    }
}
__DATA__