Select Code to Download

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

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

use strict;
use warnings;
...
foreach (@files) {
    do_something_with_this_file($_);
}