my @data = ({}) x (3);
print Dumper \@data;

##</code><code>##

$VAR1 = [
          {},
          $VAR1->[0],
          $VAR1->[0]
        ];

##</code><code>##

$VAR1 = [
          {},
          {},
          {},
        ];

##</code><code>##

for (0..2) {
    print $report->{data}->[$_]->{foo}," => ", $report->{data}->[$_]->{bar},"\n";
}