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

##</code><code>##

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

##</code><code>##

for my $elem (@$allnames) {
    my $allname    = $elem->{name}    || '';
    my $alladdress = $elem->{address} || '';
    ...
}