my @suits = ("hearts","clubs","spades","diamonds");

##</code><code>##

    my @suits = qw(hearts clubs spades diamonds);

##</code><code>##

use strict;
use warnings;

# Set @files to the result of doing something like
# "ls -1" in Linux, or DIR/b in Windows (DOS)
#
my @files = qw(
    a.txt
    b.txt
    c.txt
    d.txt
    e.txt
    f.txt
);

foreach (@files) {
    do_something_with_this_file($_);
}