my $idx = 0;
foreach my $thing( @{$object_ref->{array_ref}} ) {
    # do stuff with $thing
    $idx++;
}