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