# while( $i < @{ $ref } ) {
  for my $i ( 0 .. $#$ref ) {