for (my $item = 0; $item <= $#{$ref}; $item++) {