for my $i (0..$#$ref) {