open NAME or die "Failed opening $NAME: $!\n";

##</code><code>##

while (<NAME>) {
    ...
}

##</code><code>##

for my $i (0 .. @array) {
    ...
}

##</code><code>##

for my $elt (@array) {
    ...
}