my $xmldata = XMLin( $ARGV[0], ForceArray=>1, KeyAttr=>{meta=>"name"} , SuppressEmpty=>"") or die "Could not parse xml data: $!";

foreach my $f ( @{$xmldata->{'p'} } ) {
  print $f;
  print "\n";
}

print Dumper($xmldata);