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