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