foreach(0..$#{@{$object_ref->{array_ref}}}){
# I need the index!
}