You'll have to list them all out individually if you want to do it that way, i.e.

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

Then again, why not put them all in an array in the first place? Then you won't have to worry about creating an array separately. You can create the array all at once, or pieces at a time, depending on what makes sense with what the rest of your code is doing.

# Create all at once
my @cmds = qw(This Is a test);

# -OR- Create one at a time
my @cmds;
push @cmds, 'This';
push @cmds, 'Is';
push @cmds, 'a';
push @cmds, 'test';

# Then use the array of cmds
for (@cmds) {
    print "$_\n";
}
[download]

-- Mike

--
just,my${.02}