for (my $i = 0; $i <= $#names; $i++) { ... }

# or

for (my $i = 0; $i < @names; $i++) { ... }