$cmd1 = 'This';
$cmd2 = 'Is';
$cmd3 = 'a';
$cmd4 = 'test';

my @cmds = map{eval '$cmd'.$_} (1..4);

##</code><code>##

my $t='(';
$t.= "\$cmd$_, " for (1..4);
@cmds = eval $t.')';

##</code><code>##

$cmd1 = 'This';
$cmd2 = 'Is';
$cmd3 = 'a';
$cmd4 = 'test';

my @cmds = map{ ${"cmd$_"} }(1..4);