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