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