my( @args ) = ( $^X, "one", "two" );
system( { $args[0] } @args ) == 0
     or die "system @args failed: $?"