# man beachte das %{} , das aus einer Hashreferenz einen Hash macht...
while (($key,$value) = each( %{ $ref->{photos}->{photo}} )) {
    print $key . "\n";
}