print $data->{record}[0]{namepairs}[0]{name}[0];