use strict;
use warnings;

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

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