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