print $result->result->{Person}[1]->{commonname};