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