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

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

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