foreach $i (0..$#{$animals{pets}}) {
  ...
}