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

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