my $xml = new XML::Simple (ForceArray => 1, KeyAttr=>[]);

$data = $xml->XMLin($dirtyxml);

foreach $record(@{$data->{present_response}->{record}})
{
	$gooddata=$record->{xmlns};
	push(@title, $gooddata);
	}

foreach (@title) {
$list = $list."<p>".$_."</p>";
}

my $output = "<p>".$list."</p>";

return($output);