my $array = $object_ref->{array_ref};
foreach (0..$#$array) {
   printf("%d %s\n", $_, $array->[$_]);
}