Select Code to Download

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

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

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