foreach my $r (keys %$result){
   print $r->result->{Person}->{commonname};
}