# receive a list of filenames on stdin
# (or from an intermediary file named on command line)
#
while (<>)
{
   chomp;
   # process a filename in $_
}

##</code><code>##

# index loop
for my $f (0 .. $#array)
{ my $g = $array[$f];
  ...
}

# element loop
for my $g (@array)
{ ...
}