Select Code to Download

my @cmds = ($cmd1, $cmd2, $cmd3, $cmd4);

# Create all at once
my @cmds = qw(This Is a test);
...
for (@cmds) {
    print "$_\n";
}