@structure = ( [{ ... }, ], [ { ... }, { ... }, ], [ { ... }, { ... }, ], [ { ... }, { ... }, ], ); ## foreach @query { my @ex = executeRequest ($_); push @structure, []; for (my $i=0;$i<=$#ex;$i++) { push @structure->[$i], $ex[$i]; }