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

##</code><code>##

my @fields;
@( hall_details{$hall_id} }{
   qw[ 
        hall_id 
        hall_name 
        upload_date 
        uploaded_by 
        photo_id 
   ] 
} = @fields while @fields = $sth->fetchrow_array();