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