Your code:

%pics(
pic0    =>     $q->param("photo")    , ... omissis ...
[download]

Try this instead (note the =):

%pics = ( ... omissis ...
[download]

Update: For the while part, you should look in perlsyn.