$#{@{$object_ref->{array_ref}}}

##</code><code>##

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

##</code><code>##

for(my $i=0;$i < scalar(@{$object_ref->{array_ref});$i++){
# I need the index!
}