foreach my $n (<*.*>)
{
    # do stuff
}

----

my @list = <*.*>;
my $i = 0;
while ($i <= $#list)
{
    my $n = $list[$i];
    # do stuff
}
continue
{
    $i++;
}