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

##</code><code>##

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

##</code><code>##

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

##</code><code>##


$VAR1 = {
          'Person' => [
                      {
                        'commonname' => 'person 1',
                        'location' => 'location 1',
                        'telephonenumber' => '34567688',
                        'surname' => 'Shaw'
                      },
                      {
                        'commonname' => 'person 2',
                        'location' => 'location 2',
                        'telephonenumber' => '1234576',
                        'surname' => 'Birkinshaw'
                      }

##</code><code>##

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