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