foreach $record (@{$data->{present_response}->{record}}){
$gooddata=$record->{datafield}->{210}->{subfield}->{a}->{content};
	print $gooddata;
}