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

# hier dasselbe
for $id ( keys %{ $ref->{photos}->{photo} } ) {...}