Select Code to Download

1 while @hall_details{$hall_id}{
           qw[ 
...
                uploaded_by 
                photo_id 
           ] } = $sth->fetchrow_array();

my @fields;
@( hall_details{$hall_id} }{
...
        photo_id 
   ] 
} = @fields while @fields = $sth->fetchrow_array();