Да, только я не могу найти список ссылок в $picture
    print "$picture->{ key }";
Use of uninitialized value in string at /home/a3d/bin/upload.pl line 141.