my $c = -1;
...
foreach my $infs (@{ $data->{ info } }) {
    $c++;
    ...
    push @{ $AoA[$c] },