Select Code to Download

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};
}

$VAR1 = {
...
                        'telephonenumber' => '1234576',
                        'surname' => 'Birkinshaw'
                      }

print $result->result->{Person}[1]->{commonname};