Вопрос: Как перебрать массив, считанный из входных данных json, у которого нет имени переменной /...

Я могу создать массив с пустыми слотами: $ perl -wde 1 ... DB<1> $x[2] = 0 DB<2> x \@x...

В Java следующий код гораздо чище и проще в обслуживании, чем соответствующий громоздкий оператор...