<% foreach my $d ( @{$drawings} ) { %> <% my $files = eval { return decode_json $d->{'file'} } || []; %> <% foreach my $fi ( grep { $_->{'type'} eq 'image' } @{$files} ) { %> D <% } %> <% } %>