Select Code to Download

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

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

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