use strict;
use warnings;

my @array = qw/ foo bar baz blah /; 

for(my $i = 0; $i < @array; $i++) {
    print "$i $array[$i]\n";
}

##</code><code>##

use strict;
use warnings;

my @array = qw/ foo bar baz blah /; 

foreach my $filename (@array) {
    print "$filename\n";
}